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PREFACE TO FINAL REPORT, PART I 

The present report is the first of a three-part research report that deals with 
experimental and theoretical investigations of steady and unsteady wakes and their 
influence on boundary layer transition. The experimental research was performed in 
the recendy established Turbomachinery Performance and Flow Research Laboratory, 
a division of the Turbomachinery Laboratory of Texas A&M University. 

This part reports on the comprehensive experimental investigations of steady and 
unsteady wake flows. Based on the results of these investigations, a theoretical 
framework has been developed that precisely predicts the development and decay of 
steady and unsteady wake flows through curved and straight channels at positive, zero, 
and negative pressure gradients. The final report, Part II, describes the theoretical 
framework where the experimental results from the present report and the literature are 

compared with theory. 

Part III reports the effects of periodic unsteady wake flow and pressure gradient 
on boundary layer transition along the concave surface of a curved plate. 
Measurements were done in an unsteady flow research facility using a rotating cascade 
of rods positioned upstream of the curved plate. Boundary layer measurements using 
a hot-wire probe were analyzed by ensemble-averaging technique. 


M.T. Schobeiri 
College Station, Texas 
March 1994 



ABSTRACT 


The turbomachinery wake flow development is largely influenced by streamline 
curvature and stream wise pressure gradient The objective of this investigation is to 
study the development of the wake under the influence of streamline curvature and 
stream wise pressure gradient The experimental investigation is carried out in two 
phases. The first phase involves the study of the wake behind a stationary circular 
cylinder (steady wake) in curved channels at positive, zero, and negative stream wise 
pressure gradients. The mean velocity and Reynolds stress components are measured 
using a X-hot-film probe. The measured quantities obtained in probe coordinates are 
transformed to a curvilinear coordinate system along the wake centerline and are 
presented in similarity coordinates. The results of the steady wakes suggest strong 
asymmetry in velocity and Reynolds stress components. However, the velocity defect 
profiles in similarity coordinates are almost symmetrical and follow the same 
distribution as the zero pressure gradient straight wake. The results of Reynolds stress 
distributions show higher values on the inner side of the wake than the outer side. 
Other quantities, including the decay of maximum velocity defect, growth of wake 
width, and wake integral parameters, are also presented for the three different pressure 
gradient cases of steady wake. The decay rate of velocity defect is fastest for the 
negative streamwise pressure gradient case and slowest for the positive pressure gradient 
case. Conversely, the growth of the wake width is fastest for the positive streamwise 
pressure gradient case and slowest for the negative streamwise pressure gradient The 
second phase studies the development of periodic unsteady wakes generated by the 
circular cylinders of the rotating wake generator in a curved channel at zero streamwise 
pressure gradient Instantaneous velocity components of the periodic unsteady wakes, 
measured with a stationary X-hot-film probe, are analyzed by the phase-averaging 
techniques. The temporal distribution of velocity and Reynolds stress components 
obtained in a stationary frame of reference are transformed to a spatial distribution in 
a relative frame of reference. Profiles of phase-averaged velocity and Reynolds stress 
distributions in the relative frame of reference and similarity coordinates are presented. 



The velocity defect and Reynolds stress distributions agree with the results of the wake 
development behind a stationary cylinder in the curved channel at zero stream wise 
pressure gradient The phase-averaged third-order correlations, presented in the relative 
frame of reference and similarity coordinates, show pronounced asymmetric features. 
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NOMENCLATURE 

a i} = coefficients of polynomial for sensor j; j = 1,2; i = 0,1,..4 
b = wake width 

b t = coefficients of polynomial; i = 0,1,..5 
c, = coefficients of polynomial; i = 0,1,..5 
C = resultant velocity 
C p = pressure coefficient 
C w = momentum thickness ratio = 25 -jd 

d = diameter of wake generating cylinder (diameter of hot-film sensor in Section 6) 
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E„ = anemometer bridge output voltage 

Ej = anemometer output voltage of sensor j after temperature compensation; j = 1,2 
measured anemometer output voltage of sensor j; j = 1,2 
/ = frequency 

H = yaw calibration function in Section 6 

IT = modified yaw calibration function in Section 6 

H n = shape factor of wake 
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fc, = yaw sensitivity coefficient of sensor j; j = 1,2 

K = curvature of wake centerline = l/R 

l = length of hot-wire or hot-film 
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p = static pressure 
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Pi,, - inlet static pressure 
q = turbulent fluctuation 



Q = any arbitrary instantaneous quantity 
<Q>= ensemble average or phase-average 

Q = time average 
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Q = periodic component 

r = radial position of probe from the center of curvature of the convex wall 
r, = radius of curvature of convex wall = 500 mm 
R = radius of curvature of wake centerline 
R m = correlation coefficient 

Re d = Reynolds number based on the diameter of wake generating cylinder and the 
average velocity at the wake generating section 
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T = period of wake passing 
T a = temperature of fluid 
T c = temperature of fluid at calibration 
T s = operating temperature of sensor 
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1. INTRODUCTION 

The wake flow constitutes a special case of free turbulent flows with a broad range 
of general scientific and engineering applications. In turbomachinery aerodynamics and 
heat t ransf er the periodic unsteady wakes generated by the preceding row of blades 
influence the boundary layer development and, consequently, the heat transfer 
characteristics of the blades downstream of the wake. Because of its significant impact 
on the turbomachinery efficiency and performance, the wake development associated 
with the inherent unsteadiness induced by mutual interaction between stator and rotor 
has recently attracted the interest of the scientific and engineering community, resulting 
in many publications in the turbomachinery performance area. As extensively discussed 
by Schobeiri (1992), the major part of the research work performed in the above areas 
deals with the effects of the periodic unsteady wakes on various turbomachinery 
performance aspects previously mentioned. Despite these efforts, little attention has 
been paid to the wake development phenomenon under turbomachinery flow conditions. 

The streamline curvature significantly influences the properties of turbulent flows 
as demonstrated by Wattendorf (1935) in his study of turbulent flows through curved 
channels and by Lumley and Margolis (1963) in their study of the curved turbulent 
mixing layer. The wake development under turbomachinery flow conditions is subjected 
to pressure gradient and curvature effects. The laws governing the decay of wake 
centerline defect velocity and the development of the wake width can be different from 
the development of a plane wake under zero pressure gradient The curvature and 
pressure gradient have significant effects on the mean velocities and turbulent properties 
of the wake. Most of the research conducted on wakes deals with two-dimensional 
plane turbulent wakes under zero pressure gradient However, results of the plane 
turbulent wakes cannot be directly applied to turbomachinery flow situation where 
pressure gradient and curvature effects are present This situation is the motivation for 
conducting a systematic investigation of the wake development under turbomachinery 
flow conditions. 

Experimental investigation of the wake development through actual turbomachines 
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requires complicated instrumentation and measurement techniques and a test facility 
with large financial investments. A unique experimental facility designed and built by 
Schobeiri et al. (1992) at the Tuibomachinery Performance Laboratory of Texas A&M 
University enables the simulation of the blade passage of a turbomachinery cascade, 
where positive, zero, and negative pressure gradients can be established. A circular 
cylinder simulates the wake of a cascade. The use of a cylinder instead of a blade 
cascade is appropriate, as shown by Reichardt (1950), Pfeil and Pache (1977), Pfeil and 
SchrOder (1981), Pfeil et al. (1983), Doorly (1985), and Liu & Rodi (1991), since the 
turbulence characteristics of the cylinder wake flows for the Reynolds stress components 
are similar to those of rotor blade wakes. This is particularly true for downstream 
distances x/d > 80. The present investigation uses a circular cylinder under simulate d 
turbomachinery flow conditions that provides a basic understanding of the phenomenon 
of wake development subjected to curvature and pressure gradients. 
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2. LITERATURE REVIEW 

A review of the classical and current research on plane turbulent wakes is first 
presented and is followed by a literature review on the effect of curvature on turbulent 
flows and wakes. Finally, the periodic unsteady wakes are reviewed. 

The two-dimensional wakes were first theoretically and experimentally investigated 
by Schlichting (1930, 1979). Applying Prandtl’s mixing length hypothesis and assuming 
a mixing length proportional to wake width Schlichting derived expressions for wake 
width and defect velocity. The theoretical expressions showed excellent agreement 
against the measurements performed in the wake of a circular cylinder. 

Reichardt (1942) succeeded in explaining free turbulent flows based on an inductive 
theory of turbulence as opposed to the deductive theory of turbulence where a suitable 
assumption like the Prandtl’s mixing length hypothesis is necessary for the unknown 
relation between the turbulent shear stress and mean motion. After examining the large 
number of data on free turbulent flows, which he supplemented with his own 
experiments, he discovered that the velocity profiles under consideration could be 
represented by Gauss’s function or its integral, the error function. 

Townsend (1947, 1949a,b) investigated the far wakes of circular cylinders with 
measurements for mean velocity distribution, the distribution of the three components 
of turbulence, correlation derivatives in downstream direction, viscous dissipation, 
energy diffusion, Reynolds shear stress, and intermittency factors. An analysis of the 
energy of mean and turbulent motion showed that the complete dynamic similarity in 
the wake, if ever attained, occurs beyond 1,000 diameters downstream of the wake 
generating cylinder. The observations revealed that the wake flow was intermittently 
turbulent except the fully turbulent core near the wake center. Making the usual 
boundary layer approximations and assuming that local isotropy exists, a turbulent 
energy balance was also presented. It should be mentioned that Townsend’s data on the 
distribution of transverse fluctuation velocity differed from the later measurements 
reported by Eifler (1975), Fabris (1979), and many others, where a minima were 
observed at the wake center. 
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Roshko (1953) studied wake development behind circular cylinders using spectrum 
and statistical measurements at Reynolds numbers (Re) ranging from 40 to 10,000. The 
Reynolds number range of periodic vortex is divided into two distinct sub ranges joined 
by a transition range. Regular vortex streets are formed in the stable range (40 < Re 
<150) and periodic vortex shedding is accompanied by turbulent fluctuation in the 
irregular range (300 < Re <10,000). Free vortices decay by viscous diffusion in the 
stable range, while in the irregular range the diffusion is turbulent and the wakes 
become fully turbulent in 40 to 50 cylinder diameters. Also, the Strouhal number, a 
measure of the vortex shedding frequency, is found to be rapidly rising in the stable 
range and is practically constant in the irregular range. 

Hill et al. (1963) investigated the effect of pressure gradients on the decay of the 
wakes. The measurement of the mean velocity distribution of the wake through a two- 
dimensional diffuser section with variable divergence angle showed that the wake can 
grow instead of decay. This can lead to stagnation flow at the wake center at large 
adverse pressure gradients. Employing a momentum integral equation and eddy 
viscosity proportional to the product of local free-stream velocity and momentum 
thickness, expressions were derived for estimating the decay of wake centerline velocity 
and growth of wake width. A criterion for the limiting value of pressure gradient to 
prevent the growth of defect velocity was also obtained. 

Gartshore (1967) experimentally and theoretically examined two nearly self- 
preserving wakes subjected to adverse pressure gradient, the pressure gradient being 
adjusted to give a constant ratio between maximum wake defect velocity and local free- 
stream velocity. A comparison of data for longitudinal and lateral turbulence intensity 
and shear stress distributions with Townsend’s (1956) data for the small-deficit zero 
pressure gradient wake showed that the effect of pressure gradient was to have slightly 
lower turbulence intensities and significantly lower shear stresses with all quantities 
being nondimensionalized by a local velocity scale. 

Uberoi and Freymuth (1969) measured the one-dimensional spectra of turbulent 
wakes behind circular cylinders for downstream positions between 50-800 cylinder 
diameters and for Reynolds number between 320-95000. The spectra of large scale 
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turbulence are found to be anisotropic and dynamically similar. A formula is proposed 
to describe the spectra over the entire wave number range and for all Reynolds numbers. 

Eifler (1975) and Pfeil and Eifler (1975 a,b) theoretically and experimentally 
investigated the development of wake for zero pressure gradient for a wide range of 
downstream locations and different cylinder diameters. Extending Reichardt’s inductive 
approach on free turbulence theory, they obtained theoretical expression for the 
Reynolds shear stress. The theoretical expression for the Reynolds shear stress is in 

excellent agreement with Eifler’ s (1975) measurements. 

Fabris (1979, 1983) measured the far wake of a circular cylinder using a four- wire 
probe to obtain instantaneous values of three components velocity and temperature. The 
wake generating cylinder is heated slightly to allow conditional sampling techniques 
using the temperature as a tracer to distinguish between the turbulent (heated) and 
potential (cold) intermittent fluid. The conventional and conditional averages are 
presented for velocities, temperature, turbulent fluctuations, and second- and third-order 
correlations. The conditional averages are calculated in turbulent zone, potential zone, 
and the upst ream and downstream interfaces of the turbulent zone. 

Cantwell and Coles (1983) investigated the transport processes in the near wake of 
a circular cylinder in the first eight diameters of the wake and at a Reynolds number 
140,000 using a X-wire probe and flying-hot-wire techniques. The ensemble averages 
of data at constant phases of the vortex shedding yielded a sequence of pictures of the 
instantaneous mean flow field, with the vortices frozen as they would be in a 
photograph. In addition to globally averaged data for velocity and turbulent stress, 
results arc presented for averages at constant phase for velocity, intermittency, vorticity, 
turbulent stress, and turbulent energy production. The kinematics of vortex formation 
process is described in terms of the formation and evolution of saddle points between 

vortices in the first few diameters of the near wake. 

All the investigations reviewed so far are for symmetric wakes where the curvature 
is absent Wattendorf (1935) investigated the effect of curvature on two-dimensional 
fully developed turbulent flow. He measured the mean velocity and pressure 
distributions in two channels of different curvature radius and found that velocity 
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distributions are strongly influenced by curvature. 

GOrtler (1940) has shown that longitudinal vortices are generated by instability with 
respect to three-dimensional disturbances in boundary layer flows along concave walls. 
The effect is absent on convex walls. The result is to move the transition point toward 
the leading edge of the concave wall boundary layer. 

Eskinazi and Yeh(1956) studied fully developed turbulent flow in a curved channel 
between two concentric circular walls by measuring mean velocity, static pressure, 
turbulent intensities, shear stresses, and one-dimensional spectra. They showed that the 
turbulence structure was dependent on the distribution of the angular momentum. The 
turbulence was suppressed near the convex wall where the gradient of die angular 
momentum was positive and promoted near the concave wall where the gradient of 
angular momentum was negative. This is similar to the Rayleigh’s criterion for 
centrifugal instability for an in viscid, irrotational curved flow where the radial 
equilibrium of the fluid element is stable if the radial gradient of angular momentum is 
positive and unstable if the radial gradient of the angular momentum is negative. 

Margolis and Lumley (1965) investigated the curved mixing layer produced by a 
two-dimensional jet of air issued into a curved channel with part of the channel entrance 
open to the atmosphere. They measured the mean velocity, turbulence intensity, shear 
correlation, and one-dimensional stream wise energy spectra of two dynamically different 
flows obtained by placing the jet next to the convex or concave wall. When the jet was 
placed next to the convex wall of the channel, the angular momentum gradient was 
negative and the flow was unstable. When the jet was placed next to the concave wall 
of the channel, the angular momentum gradient was positive and the flow was stable. 
The results also showed self preservation for the mean velocity distribution. 

Turbomachinery boundary layers and wakes are two important cases of turbulent 
flow with streamline curvature. Their characteristics are the most influential factors on 
the performance of machines. Raj and Lakshminarayana (1973) investigated the near 
and far wake characteristics of a cascade of airfoils for three different incidence angles. 
The measurements of mean velocity, turbulence intensity, and Reynolds stress showed 
asymmetric distribution, and the decay of the wake defect was found strongly dependent 
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on the downstream variation of wake edge velocity. Also presented are semi-theoretical 
expressions for the wake profile, decay of the defect velocity, turbulence intensity and 
Reynolds stress. 

The sensitivity of the flow to the curvature and pressure gradient can best be 
realized from the study by Schobeiri (1976, 1979) involving viscous flows with low 
Reynolds n um bers in symmetric convex and concave channels. The investigation shows 
that the flow through the symmetric channel with convex wall is more sensitive, with 
respect to flow separation, to adverse pressure gradient than the flow through a channel 
with concave walls. Other investigations by Schobeiri (1980, 1990) in asymmetric 
channels show that the flow tends to separate on the convex wall than on the concave 
wall in the presence of adverse pressure gradient 

Bradshaw (1973) reviewed earlier work on the effect of streamline curvature on 
turbulent flow. Castro and Bradshaw (1976) studied the turbulence structure of a highly 
curved mixing layer bounding a normally impinging plane jet with an irrotational core. 
The measurement of Reynolds stress and other turbulence quantities showed a decrease 
in the region of stabilizing curvature. Muck et al. (1985) and Hoffmann et al. (1985), 
in their experiments on boundary layers on convex and concave surfaces, observed that 
convex (stabilizing) curvature tends to attenuate the preexisting turbulence while the 
concave (destabilizing) curvature results in the generation of Taylor-GOrtler vortices. 

Koyama (1983) studied the curvature effect on the mean velocity and turbulent 
stress in the initial developing part of a cylinder wake developing in a curved channel 
without stream wise pressure gradient When the wake generating cylinder is located 
normal to the streamline curvature (spanwise), he observed asymmetry about the wake 
centerline in the mean velocity and turbulent intensity profiles owing to the destabilizing 
effects on the inner side of the wake and stabilizing effects on the outer side. 

Savill (1983) and recently Nakayama (1987) investigated the effects of pressure 
gradient and curvature on wakes. Savill investigated a fully developed cylinder wake 
that is abruptly turned 90° by means of a back plate so that the wake is subjected to 
strong curvature and stream wise pressure gradient The data for mean velocity and 
turbulent stress revealed the strong influence of curvature on the wake. The turbulent 
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stress fields are found complex owing to the coexistence of the stabilized and 
destabilized regions across the wake and strong interaction between them. Nakayama 
(1987) carried out a systematic study of the effect of mild pressure gradient and mild 
streamline curvature on a small-deficit wake. The wake was subjected to mild curvature 
and mild pressure gradient by deflecting it by an airfoil like thin plate placed at small 
angles in the external flow. The qualitative separation between the effects of the 
curvature and pressure gradient is achieved by placing the thin plate at positive and 
negative angles to the free-stream direction. Despite the governing mild pressure 
gradient and curvature, the measured data suggests a strong sensitivity of turbulence 
quantities, especially the Reynolds shear stress, to the curvature and pressure gradient 

The study of the wake characteristics by Ramjee and Neelakandan (1989) involved 
a rectangular cylinder wake in both the straight and curved channels up to a downstream 
location of 160 cylinder heights. The sensitivity of wake flow to the curvature is 
evident from the pronounced changes in the ma ximum defect velocity and Reynolds 
stress intensities in the downstream side between the straight and curved wakes. Larger 
maximum defect velocity and asymmetry of the mean velocity profile were quite evident 
in the curved duct case. The lateral fluctuations are found to be more sensitive to 
curvature than the stream wise fluctuations. Of all the Reynolds stresses, shear stress 
exhibited pronounced changes with downstream distance bringing out the strongest 
sensitivity to the streamline curvature. 

In turbomachines, unsteady wakes impinging on the blade surface have significant 
influence on boundary layer development and heat transfer rate to the blades. Raj and 
Lakshminarayana (1976) analytically and experimentally investigated the characteristics 
of three-dimensional turbulent wakes of a turbomachinery rotor. Measurements of mean 
velocities, turbulence intensities, and Reynolds stresses were carried out using a triple 
sensor hot-wire probe in a stationary system at various axial and radial locations 
downstream of the rotor. Semi-theoretical expressions for the decay rate of the defect 
velocity, turbulence intensity, and Reynolds stresses with downstream distance of the 
rotor are derived. A comparison with an isolated airfoil and cascade data suggests that 
the decay of the rotor wake was faster than the cascade or an isolated airfoil wake. 
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Other investigations on rotor wakes include measurements by Evans (1975) using X-hot- 
wire probe and Lakshminarayana and Poncet (1974) using a triple sensor hot-wire probe. 
Ravindranath and Laksminarayana (1979, 1980) also investigated the relative flow 

behind blade cascades using rotating probes. 

Recently, rotating wake generators have been used to simulate the unsteady flow 
as reported by Pfeil and Schrader (1981), Schrader (1985), Doorly and Oldfield (1985), 
and O’Brien and Capp (1989). Pfeil and Schrader (1981) and Schrader (1985) studied 
the unsteady wake development downstream of rotating cylinders within a straight 
channel. The data for velocity and turbulent stresses measured in the absolute frame of 
reference were transformed to a relative frame of reference. From these data they could 
describe the relative wake defect by the theory of free turbulence established by 
Reichardt (1942) and extended by Pfeil and Eifler (1975). 

Doorly and Oldfield (1985) employed a rotating bar wake generator consisting of 
bars mounted on the rim of a large diameter disk. The test section consisted a row of 
blades in a cascade. Their study revealed that wakes undergo massive distortion due 
to high velocity gradients in the rotor blade passages. There is also a very high rate of 
transient heat transfer because of the production of a boundary layer patch on the 
suction surface and subsequent sweeping along the blade surface. 

O’Brien and Capp (1989) investigated the mean velocity and turbulence statistics 
downstream of a rotating spoked-wheel wake generator located in an annular passage 
at three Reynolds numbers and three wake passing frequencies. Phase-averaged 
measurements obtained in the stationary frame of reference showed that the mean axial 
velocities are independent of Reynolds and bar passing Strouhal numbers. Phase- 
averaged Reynolds stresses were consistent with related cylinder wake measurements 
but were higher than corresponding measurements of Reynolds stresses obtained in large 
scale research turbomachines. 

Wake-induced unsteady flow using rotating wake generators have been studied in 
many other experiments, e.g., in a transitional turbine blade boundary layer by 
Ashworth, LaGraff and Schultz (1989), in a compressor cascade boundary layer by 
Dong and Cumpsty (1989 a,b), in a flat plate transitional boundary layer by Liu and 
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Rod! (1991), in a linear turbine cascade by Liu and Rodi (1992), and in a flat plate 
boundary layer at different pressure gradients by Orth (1992). Morehouse and Simoneau 
(1986), O’Brien et al. (1986), and O’Brien (1988) investigated the effect of unsteady 
wakes generated by a rotating spoked-wheel wake generator on heat transfer in the 
stagnation region of a cylinder. 

The investigations discussed above have significantly contributed to better 
understanding of the wake flow under different boundary conditions. However, several 
fundamental questions are still unanswered. Further, the existing data on the direct 
influence of curvature and pressure gradient on wake development are limited. 
Therefore, a comprehensive experimental investigation is needed to study the steady and 
periodic unsteady wake development through curved channels under positive, zero, and 
negative stream wise pressure gradients. 
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3. OBJECTIVES 

The objective of this investigation is to study the development of steady and 
unsteady wakes in a curved channel at different streamwise pressure gradients. The 
wakes are generated by circular cylinders. The steady wake generated by a stationary 
cylinder is investigated for positive, zero, and negative streamwise pressure gradients, 
while the unsteady wake generated by the rotating wake generator is investigated for 
zero st ream wise pressure gradient An X-hot-film probe takes the measurements. The 
components of the velocity and the Reynolds stress in the radial and tangential 
directions (probe coordinate), obtained with a X-hot-film probe, are transformed to a 
curvilinear coordinate system along the wake centerline. The mean and turbulence 
quantities of unsteady wakes are studied using ensemble averaging techniques. The 
unsteady wake quantities obtained in a stationary frame of reference are transformed to 
a relative frame of reference. 

The mean velocity and Reynolds stress distributions in similarity coordinates are 
compared against the plane wake data. The decay rate of wake defect velocity and 
growth of wake width are determined. The integral quantities, momentum thickness and 

product U lm b, are also found. The data obtained from this study provides a good 

understanding of the effect of curvature and pressure gradient on the wake development, 
which is extremely useful in understanding turbomachinery wake flows. 

Another part of this research program implemented instrumentation and data 
acquisition for the newly built test facility. An accurate method of calibrating X-hot- 
film probe was also implemented. 
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4. THE EXPERIMENTAL TEST FACILITY 


Figure 1 shows the complete layout of the test facility, which consists of a large 
centrifugal fan, a settling chamber, a nozzle, a wake generator, a curved channel test 
section, and an exit duct The components are discussed in the following sections. A 
more detailed description of the test facility is given by Schobeiri (1988), Pardivala 
(1991), and Schobeiri and Pardivala (1992). 

4.1. Fan and Inlet Duct Assembly 

The centrifugal fan is driven by a 112 kW (150 hp) 3-phase a.c. motor running at 
its rated speed of 1785 rpm, which is reduced to the fan speed by a belt pulley 
transmission with a ratio of 190/330. At the test section the above motor speed results 
in a mean velocity of 36 m/s and a maximum Reynolds number (based on the test 
section height) of 8.0 x 10 s . Variation of die flow velocity and thus the Reynolds 
number can be achieved by operating a throttle at the fan exit or varying the fan speed. 
For the present investigations, the throttle was adjusted to give a mean velocity of about 
20 m/s just upstream of the wake generator. This corresponds to a Reynolds number 
of 2600 based on the wake generating cylinder diameter of 1.984 mm. The flow 
entering the fan passes through a 50-mm thick fiber glass filter, that can filter particles 
of up to 5 pm. 

Since the fan exit is at a higher level than the centerline of the test facility, a set 
of transition ducts followed by 3.25 m of straight piping, with a diameter of 500-mm, 
are used to smoothly channel the flow from the fan exit to the diffuser inlet The first 
transition duct is S-shaped with a cross-section of 615 mm x 690 mm, which 
corresponds to the cross-section of the fan exit This duct has two sections separated 
by a 100- mm rubber connector. The rubber connector isolates the test facility from the 
vibrations of the fan and is the first of a series of steps that ensure smooth operation of 
the facility. The second transition duct connects the rectangular cross-sectioned S- 
shaped duct to the circular cross-sectioned straight pipe. The straight pipe 




Fig. 1 Overall layout of the test facility. 1-fan; 2-motor; 3-trj 
7-nozzle; 8-wake generator; 9-test section; 10-exit duct 
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iition duct; 4-straight pipe; 5-diffuser; 6-settling chamber; 
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is made of two sections for easy assembly and passes through the wall of the laboratory. 
The first section of the straight pipe has another 200-mm rubber connector to further 
isolate die test facility from the upstream vibrations. A small step introduced between 
the two sections of the straight pipe provides sudden flow contraction and relaxation, 
which results in better mixing and a more uniform velocity profile downstream. Trost 
(1975) and Schobeiri (1979) used a similar contraction. Tests with a Prandtl probe in 
the final section of the pipe confirm the existence of a fully-developed turbulent velocity 
profile upstream of the diffuser inlet The Prandtl probe, permanently located in the 
straight pipe upstream of the diffuser, senses any variation in the mean velocity resulting 
from fluctuations in the fan speed due to unsteadiness in the line voltage. 

4.2. Diffuser, Settling Chamber and Nozzle Assembly 

A 600- mm long short diffuser with an area ratio of 1:5, designed on the optimum 
design criteria (see Schobeiri, 1979), is located downstream of the straight pipe and 
decelerates the flow before it enters the settling chamber. The settling chamber is made 
of three sections each of 750-mm length and a cross-section of 1200 mm x 820 mm. 
Four screens and one honeycomb flow straightener control the flow uniformity and 
turbulence level within the settling chamber. The screens are made of stainless steel 
and have different mesh sizes and wire diameters. The first screen, placed at the 
diffuser exit, reduces the scale of the vortices generated by the diffuser vanes. A 50- 
mm wide honeycomb flow straightener with a 6-mm cell size is located between the 
first two settling chamber sections. Directly downstream of the honeycomb is the 
second screen. This honeycomb-screen combination results in a much lower exit 
turbulence level than a honeycomb alone, since the large scale jets exiting from the 
honeycomb cells are broken into smaller scale eddies (see Blair et al., 1981). The third 
and fourth screens are located downstream of the second and third settling chamber 
sections. This diffuser-settling chamber configuration with four screens results in a free- 
stream turbulence intensity of 1.2% at the inlet of the test section. Table 1 list the 
specifications of the screens. Downstream of the settling chamber is a nozzle with an 
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area ratio 4:1 that accelerates the flow to the required velocity before it enters the wake 
generator. The nozzle establishes a smooth transition of the flow from the settling 
chamber to the wake generator. 


Table 1 Details of the screen configuration 


Number of 
1 Screens 

Mesh Size 
(per 25.4 mm) 

Open Area 

(%) 

Turbulence 
Intensity (%) 


Screen 1: 20 x 20 

67 


4 

Screen 2: 20 x 20 

67 

1.2 


Screen 3: 30 x 30 

65 


■- 

Screen 4: 30 x 30 

65 



4.3. Wake Generator for Simulation of Unsteady Inlet Flow 

The wake generator (see Figs. 2 and 3) simulates the unsteady inlet flow and the 
flow pattern downstream of a rotor row. Figure 3 shows a cross-section of the wake 
generator where a series of circular cylinders can be arranged circumferentially on two 
parallel rotating disks. The disks are covered by two stationary circular disks connected 
with the shafts (see Fig. 3) to avoid an undesirable inception of secondary shear flow 
generated by the rotating disks. The diameter and number of cylinders can be varied 
to simulate the wake width and spacing that stems from the trailing edge of rotor blades. 
The minimum cylinder diameter with this configuration is 2-mm while the maximum 
diameter is 5-mm. The number of cylinders may vary between 1 and 30. The present 
investigation uses a cylinder of diameter 1.984-mm for both steady and unsteady wakes. 
For the three pressure gradient cases of steady wake, the wake generator is kept 
stationary with a single circular cylinder of diameter 1.984-mm kept at mid-height of 
the channel and a distance 67-mm upstream of the entrance to the curved test section. 
Three circular cylinders of 1.984-mm diameter each, fixed at equal angle on the rotating 
disk, are used for the unsteady pressure gradient case. Figure 2 shows the rotating disks 
driven by a frequency controlled electric motor with a belt transmission with maximum 




Fig. 2 Test section. 1-exit duct; 2-convex wall assembly; 3-concave wall; 4-probe; 5-wake generator; 6-motor; 7-top wall; 
8-safety pin; 9-rotary vernier; 10-traversing system; 11-stepper motor; 12-encoder; 13-locking wheel 
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power of 7.45 kW (10 hp) and maximum rotational speed of 1750 rpm. A fiber-optic 
sensor provides the input to the frequency controller that generates the signal to monitor 
the angular frequency of the wake generator. The sensor also generates the signal for 
external triggering of the analog to digital (A/D) conversion board needed for phase- 
averaged measurement 

4.4. Test Section for Simulation of Curvature Effect 

The test section in Fig. 2 is located downstream of the wake generator and consists 
of a convex top wall, a concave bottom wall, and two vertical plexiglass side walls. 
The probe traversing system is mounted within the convex wall assembly. Details of 
this system are discussed in the following section. The concave bottom wall slides 
horizontally within two T-slots in the bottom wall of the wake generator. This allows 
the creation of adverse or favorable stream wise pressure gradients within the test 
section. Table 2 summarizes the geometry of die test section for the four cases 
investigated in the present study. The fourth column of the table gives the area ratio 


Table 2 Details of the test section and the wake generating cylinder used 


1 

Test cases for 
wake 

development 

Test section 
inlet area 
(mm x mm) 

Test section 
outlet area 
(mm x mm) 

Area 

ratio 

Cylinder 

dia. 

( mm ) 

No. of 
Cylinders 

steady, zero 
pressure gradient 

420 x 593 

420 x 593 

1.0 

1.984 

1 

steady, positive 
pressure gradient 

420 x 593 

547 x 593 

0.7 

1.984 

1 

steady, negative 
pressure gradient 

420 x 593 

295 x 593 

1.3 

1.984 

1 

unsteady, zero 
pressure gradient 

420 x 593 

420 x 593 

1.0 

1.984 

3 


of the inlet to outlet of the curved test section. The two curved walls have static 
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pressure ports mounted flush with the surface at regular arc lengths of 50-mm. The 
static pressure ports are connected to a manometer bank for visualization purposes. The 
test section allows integration of test objects such as a curved plate, a cylinder, or a 
turbine cascade for boundary layer and heat transfer investigations. 

4.5. Probe Traversing System 

Besides simulating convex curvature, the convex wall assembly also allows precise 
radial and circumferential traversing of the probes. Figure 2 shows the mounting of the 
traversing system within the convex wall assembly (details are shown in Fig. 3). The 
traversing system is vertically mounted on the base plate of the convex wall assembly 
and consists of a 152.4-mm slider that moves within a dovetail guide. A lead screw 
with a maximum traversing length of 610.0-mm, connected to a d.c. stepper motor, 
provides the required drive for the slider. It receives signals from a computer driven 
by a FORTRAN code with an arbitrary traversing schedule as an input, which turns the 
lead screw by the exact number of pulses required. An optical encoder connected to the 
traversing system provides continuous feedback to the stepper motor for accurate 
positioning of the probes. The system can traverse in small steps with a resolution of 
2.5 pm. Both software and mechanical stops prevent the probes from traversing beyond 

the desired limits. 

The slider of the traversing system allows the simultaneous positioning of two 
probes (Fig. 3). The first probe is a hot-wire or hot-film probe (single hot-film, x-film) 
while the second probe is a total pressure probe (Kiel probe). Angular (stream wise) 
positioning of the probes is achieved by rotating the entire convex wall assembly about 
its center of curvature. A rotary vernier mounted on one of the triangular supporting 
walls all ows precise angular positioning of the probes. 
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5. INSTRUMENTATION AND DATA ACQUISITION 

Digital data acquisition and analysis have been used throughout this study. The test 
facility was instrumented for fully automated data acquisition. The following sections 
describe the instrumentation, data acquisition procedure, and calibration of sensors. 

5.1. Instrumentation of the Test Facility 

Figure 4 shows a schematic layout of the test facility instrumentation. The data 
acquisition system is controlled by a 386SX, 16 mHz personal computer with a math 
coprocessor, a 210 Mb hard disk, a 1.2 Mb floppy drive, and a 120 Mb tape backup 
system. A 12-bit A/D (analog to digital conversion) board is installed in one of the 
expansion slots of the computer. The board has 16 c hanne ls and a data transfer rate of 
1 mHz throughput rate. The voltage range of -10 V to +10 V is selected for the A/D 
board input The first eight channels of the A/D board have simultaneous sample and 
hold circuits. This is particularly important for measuring Reynolds shear stress, as the 
voltages from the two sensors of the X-probe can be obtained without any time delay 
between them. 

A 3-channel, constant temperature anemometer (TSI, IFA 100) system obtains the 
mean velocity and turbulent stress components. Each channel of the anemometer system 
has a signal conditioner with variable low and high pass filters, dc-offset, and adjustable 
gain. The offset and gain are adjusted to obtain maximum resolution and signal to noise 
ratio. Based on numerous spectral measurements within the wake, the low pass filter 
of the signal conditioner is set at 20 kHz. The hot-film probes are operated at 1.5 
overheat ratios and 250°C sensor operating temperature. All measurements in the 
present study are made with platinum hot-film sensors with 25-pm diameters. 
Preliminary measurements are made using a standard single-film probe (TSI 1210-10) 
and the two component measurements are made using a specially designed X-film probe 
(TSI 1241-XX-10). The X-film probe allows the sensors to remain along the axis of 
the probe support The first channel of the anemometer is connected to a single-film 
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probe and the second and third channels are connected to a X-film probe. The 
anemometer output is connected to the first channel of the A/D board when the single- 
film probe is used. For measurements using X-film probes, the two anemometer outputs 
are connected to the first two channels of the A/D board from which the data is sampled 
by the computer. 

Two high precision differential pressure transducers (MKS 220CD, Range: 0- 10 mm 
Hg and 0-100 mm Hg) with a 2-channel digital readout are connected to the fourth and 
fifth channels of the A/D board. The pressure transducers are of capacitance type and 
have 0-10 V analog outputs. A Prandtl probe (pitot-static probe), placed upstream of 
the diffuser, connects to one of the pressure transducers and monitors reference velocity 
at a fixed location. The second pressure transducer measures the total pressure from a 
Kiel probe (United Sensor) positioned at the same radial and stream wise location as the 
X-probe. The third channel of the A/D board connects to a thermocouple with a digital 
readout The temperature readout has a 4-20 mA current output which is converted to 
voltage output before transferring to the A/D board input channel. The thermocouple 
is placed just downstream of the test section to constantly monitor the flow temperature. 

A high response, reflective type fiber-optic proximity sensor (ATC 7062A) located 
close to the pulley of the wake generator generates once in a revolution signal. The 
signal is generated when a piece of reflective tape fixed on the pulley comes across the 
proximity sensor. The signal generated from the fiber optic sensor is converted to 0-5 
V level and transferred to the Schmitt-trigger inputs of two monostable multivibrator 
circuits with adjustable output pulse width. The output of the first monostable 
multivibrator circuit is adjusted to 900-ps for the high pulse and transferred to the eighth 
channel of the A/D board for rpm measurement The rpm is measured by sampling the 
voltage at the eighth channel of the A/D board and calculating elapsed time between 
successive high pulses. This method of measuring rpm is highly accurate and 
calibration is not needed. The output of the second monostable multivibrator is adjusted 
to 1 ps high pulse and externally triggers the A/D board for phase averaged 
measurements for the periodic unsteady wakes. A photoelectric proximity sensor with 
a digital readout displays the rpm of the centrifugal fan. 
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A stepper motor driven traversing system (Velmex Unislide) with micro motion 
capability and optical encoder feedback allowed accurate positioning of the probes. The 
stepper motor drive was actuated by a stepper motor controller (Whedco) that also 
receives the feedback from the optical encoder. The personal computer communicates 
with the stepper motor controller through the RS232 serial interface. Fortran subroutines 
were written for this communication. 

5.2. Data Acquisition Procedure 


As previously stated, the data acquisition system is fully automated. All computer 
programs are written in Microsoft FORTRAN and access the A/D board driver routines 
written in assembly language. Before actual data acquisition, a program runs that 
continuously monitors and displays the pressure, temperature, anemometer voltages, and 
rpm to ensure that the instrument settings and output cable connections are correct The 
files COORD.DAT and CP.DAT contain the radial coordinates for a complete traverse. 
The overtravel limits and the current probe position are edited before starting the actual 
data acquisition. Given the probe coordinates to be traversed as an input, the probes are 
positioned automatically. The optical encoder feedback ensures accurate positioning of 
the probes. The computer then samples the voltages from the differential pressure 
transducer and thermocouple, calculates the mean pressure and temperature on line, and 
stores them in a data file. For unsteady wakes, the output from the fiber-optic sensor 
circuit is sampled to obtain the rpm which is stored along with the pressure and 
temperature. The voltages from the constant temperature anemometer are then sampled 
and stored. The anemometer outputs are sampled at a rate of 2 kHz with 32768 samples 
per channel taken These numbers are chosen based on results of preliminary tests 
conducted by varying the sampling rate from 0.5 kHz to 5 kHz with number of samples 
ranging from 8000 to 64000. In the case of unsteady wakes, 2048 samples per channel 
were taken during one revolution and the data was acquired for a total of 500 
revolutions. Once data is acquired at a location and stored in its individual data file, 
the probe moves to a new location given in the coordinate data file (COORD.DAT). 
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Data acquisition is started for the new location after a specified delay. The process is 
repeated until data is acquired for all locations specified in the coordinate file. The 
programs AUTO.FOR, XAUTO.FOR, and UXACQUIR.FOR acquire data employing 
single-film probe, X-film probe, and unsteady measurements using X- film probe, 
respectively. 

The frequency spectra are measured to find the desired cut off frequency of the low 
pass filter of the anemometer system. One-dimensional frequency spectra are obtained 
from a single sensor hot-film probe by performing a Fast Fourier Transform (FFT) on 
1024 points using the WAVEPAK FFT system available at the Turbomachinery 
Laboratory. Final smooth frequency spectra are then obtained by averaging the results 
of 150 such FFTs. Figures 5-7 show the spectra obtained at the inlet (0 = 0°) for the 
three different pressure gradients. Spectra are obtained at three radial locations for each 
pressure gradient case . The location corresponding to the dotted line spectrum is in the 
potential flow region outside the wake. The thick solid line corresponds to a location 
almost near the center of the wake and the thin solid line corresponds to a location 
slightly away from the center of the wake. The peaks observed in the solid line spectra 
clearly indicate the Kfrmdn vortex shedding with a Strouhal Number S (5 = f.d/V J 
equal to 0.21, which matches with the data of Roshko (1956). Here, / denotes the 
vortex shedding frequency in hz and V ln is the average velocity just upstream of the 
wake generating cylinder. The vortex shedding frequency is slightly higher in Fig. 5 
than in Figs. 6 and 7, since the spectra for that case are taken at a slightly higher 
velocity. 

5.3 Calibration of Sensors 

Sensor calibration is a prime requirement for an accurate measurement of a physical 
quantity. The most preferable method to calibrate a channel is to directly measure the 
full-channel response using an external reference that produces a known result That 
way, all the components along the signal path are calibrated together as opposed to 
separate calibration of transducer, A/D board, etc. The calibration involves fitting the 
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Fig. 5 Frequency spectra at different radial locations for zero streamwise pressure 
gradient at 0 = 0°, = 21.5 m/s 



Fig. 6 Frequency spectra at different radial locations for positive streamwise 
pressure gradient at 0 = 0°, V te = 20 m/s 
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Frequency ( kHz ) 


Fig. 7 Frequency spectra at different radial locations for negative stream wise 
pressure gradient at 0 = 0°, V to = 20 m/s 


time averaged voltages calculated from sampled data of the A/D board channel against 
known mechanical quantities such as temperature, pressure, flow velocity, flow angle, 
etc. The Fortran program CAL.FOR (Appendix B) is a general purpose routine for 
calibrating a sensor. The pressure transducer is calibrated using a dead weight tester 
and the thermocouple is calibrated using a thermocouple calibrator. The analog outputs 
from the instruments are connected to the A/D board and sampled by the computer. 
Polynomial fits, obtained through a least squares technique, are used to fit the recorded 
time averaged output voltages with the actual readings obtained from the dead weight 
tester and the thermocouple calibrator. The calibration coefficients are then stored in 
appropriate data files on the computer. The hot-film sensors are calibrated frequently 
in a low turbulence, uniform flow, open jet calibrating facility. A more detailed 
description of the calibration of the single-film and X-film sensors is given in the next 
section. 
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6. CALIBRATION OF HOT-FILM PROBES 

The present study of the wake development in curved channels involves 
measurements of the instantaneous two-dimensional velocity field using a X-hot-film 
probe. High quality experimental measurements using X-probe require accurate 
calibration procedures. The present investigation used a simple and accurate method to 
calibrate X-probes in incompressible flow (John and Schobeiri (1993)). The yaw 
response of the hot-film X-probe was investigated for different velocities and found to 
be strongly velocity dependent at low velocities. A simple relation corrected the 
variation of yaw response at low velocities. The calibration method used in the present 
investigation is described in this section. It should be mentioned that this section uses 
no separate nomenclature to distinguish between instantaneous and time averaged 
quantities, since the equations are the same in both cases. All equations use time 
averaged velocities and voltages to obtain the calibration coefficients. 

6.1. Review of Existing Methods of Calibration 

X-probes are widely used for measuring the two components of flow velocity. 
Various methods interpret the signals from the two sensor probes and almost all 
methods relate the output voltage to the effective cooling velocity V e . The effective 
velocity is related to the actual flow velocity C in different forms. Hinze (1959) and 
Champagne et al. (1967) introduced the most accurate representation of the directional 
response of a hot-wire or hot-film: 

Ve = V^k 2 Vr (6,1) 

This equation considers the cooling due to both normal and tangential velocity 
components. Webster (1962) experimentally found the values of k for various I/d ratios 
for a single hot-wire sensor. Jorgensen (1971) investigated the dependence of k on the 
yaw angle and found that the value of k varies with the yaw angle. Bradshaw (1971) 
introduced a calibration method based on an effective angle defined as: 
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V e = Ccosa e (6.2) 

Brunn et aL (1990) used a conventional calibration method with a constant fc-factor in 
Eq. (6.1) and compared it with Bradshaw’s method, which is based on Eq. (6.2). As 
a result, Brunn showed that the conventional method based on Eq. (6.1) gives the 
smallest error over the complete angle range. 

Lekakis (1988) obtained the k values at a given velocity from a yaw calibration. 
He found that a constant value for k, determined by a least square-fit of all it values, 
provides a good representation of the probe angular response. In a similar way, he 
learned the value of k for different velocities. Using the above k values, Le kakis 
developed an analytical method for calculating the velocity and its components. 

The use of constant k at a given velocity, which is common to the previously 
described methods, introduces significant errors particularly at higher yaw angles. 
Schrbder (1985) employed a simple calibration method by introducing an ideal flow 
angle for which k was equal to zero and applied the method to X-hot-wire probes. A 
yaw calibration covering the entire angle range was done at a single velocity. 
Compared to constant k-factor based methods, the method by Schroder was more 
accurate to a wide range of yaw angles (-40° < a < 40°). A more detailed description 
of this method is given later. 

Another alternative to reduce calibration errors is to use a full-range velocity-angle 
calibration technique in conjunction with look-up tables. Such a calibration technique 
was first introduced by Willmarth and Bogar (1977). Johnson and Eckelmann (1984), 
Lueptow et al. (1988), and Browne et al. (1989) further developed and modified it 
However, the generation of such tables from a full-range velocity-angle calibration, 
requires a significant amount of calibration time and effort Furthermore, setting up the 
above tables into a corresponding data reduction and analysis program requires 
excessive computational overhead, particularly concerning unsteady flow measurements. 

The calibration method in the present study is based on the ideal flow angle 
previously mentioned. A correction procedure introduced for the accurate measurement 
of lower velocities significantly improves the accuracy of the velocity components. The 



calibration technique is applicable to X-hot-wire and hot- film probes. However, a hot- 
film probe performed the measurements in the present investigation. 
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6.2. Description of Calibration Facility 

The calibration was done in a uniform low-turbulence jet issuing from an 
axisymmetric nozzle with an area ratio of 16. Figure 8 shows a schematic of the 
calibration facility. Compressed air from an air supply passes through a pressure 
regulator, filter, and a flow control valve and enters a settling chamber and pipe 
consisting of three segments with a 1 50-mm diameter. The nozzle, with an outlet 
diameter of 38.1-mm, is attached to the exit of the pipe. Figure 9 shows a cross 
sectional view of the nozzle. The nozzle is made from aluminum block machined in 
an n.c. machine. The inside contour of the nozzle is given by a third-order polynomial 
with the inlet and exit of the contour parallel to the axis of the nozzle. The inside of 
the nozzle is finished smooth by polishing. Screens located between flanges of pipe 
sections reduce the turbulence level, which is about 0.35% at the measuring location 
(0.4 diam eter from the exit plane of the nozzle and within the potential core of the jet). 
A high precision differential pressure transducer measures the pressure drop across the 
nozzle and a thermocouple located upstream of the nozzle measures the air temperature. 
Calibration measurements were done with a X-hot-film probe connected to the two 
channels of a TSI IFA100 constant temperature anemometer system. The diameter of 
the platinum X-hot-film sensor (TSI 1241-XX-10) is 25-pm with the two sensors 
separated by a distanc e of approximately 1-nun. The hot-film sensors are made of fine 
quartz rods with platinum film on the outer surface. Plating on the ends of the rod 
isolate the active sensing length and provide a contact material for mounting the sensors 
to support needles. The active sensing length of the film sensor is 0.5-mm. The 
sensors were operated at an overheat ratio of 1.5. The analog signals from the pressure 
transducer, thermocouple, and hot-film anemometer were transferred to the input 
channels of an A/D board plugged into the expansion slot of a personal computer, which 
is used for data acquisition and analysis. The data acquisition program XCAL.FOR is 
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Fig. 8 Calibration set-up for hot-film calibration 
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Fig. 9 Section of the nozzle used for calibrating hot-film probes 


used for calibrating the X-probes. 

Figure 10 shows the probe geometry, the flow velocity C, and direction a, as well 
as the components V, and V r Each sensor of the X-hot-film probe under investigation 
had an angle a, = 45° to the X-axis. The components of velocity C along and 
perpendicular to the probe axis are V x and V y , respectively. 

6.3. Description of Calibration Technique 

T his section gives a brief description of the calibration technique for a single 
freestream velocity (John and Schobeiri, 1993). It is followed by a description of the 
calibration procedure, a discussion on calibration uncertainty, and the yaw angle 
correction at different velocities. 




33 


6.3.1. Calibration at Single Freestream Velocity, Equations 


The effective cooling velocity V ej is approximated as a fourth-order polynomial 
function of the anemometer output voltage E } . 


V ej = S +a i/; +fl 2^/ +a 3; £ / +a 4^ 4 


(6.3) 


where the coefficients a i} are obtained by a least-squares fit. The angle response 
equations for sensor 1 and 2 are derived from Eq. (6.1). 


V?j = C 2 [sin 2 (a,-Kx) +fc 1 2 cos 2 (a J +a)] 
Ve2 ■ C 2 [sin 2 (a,-a) +fc 2 2 cos 2 (a,-a)] 


(6.4) 

(6.5) 


V el and V e2 are the effective cooling velocities and k, and are the yaw coefficients for 
sensor 1 and 2. As previously mentioned, SchrOder (1985) defined an ideal angle a,* 
for which kj is equal to zero. Applying this definition to Eqs. (6.4) and (6.5) leads to 


a 


id 


tan' 1 


V -V 

v el v e2 

v +v 

(^ V «/ V e2 


\ 

tana, 

) 


( 6 . 6 ) 


For probes with a, = 45°, Eq. (6.6) can be written as: 


a id = tan' 1 


f V ' 
Y el 


K V e2 J 


- 45 


(6.7) 


Schrdder also introduced a nondimensional parameter H that relates the effective cooling 
velocities to the actual velocity. It is defined by: 


( 6 . 8 ) 
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The yaw angle calibration finds the values of and H for various a. H and a are 
represented by a fifth-order polynomial function of by a least-squares fit, i.e., 

H = b 0 +b l a^b 2 al,+b 3 al l *b 4 (^+b 5 al l (6-9) 


a = c 0 +c 1 a u +c 2 a^^o&,+c 4 al,+c 5 c& 


To increase the curve fit accuracy, a new function ft defined by 


Ccosa 

Jv*+v e 2 2 


( 6 . 10 ) 


( 6 . 11 ) 


is introduced. Similar to H, the new function ft is also represented by a fifth order 
polynomial function of i.e., 

H * = d 0 +^ 1 a w +rf 2 aa+rf 3 a^4id 4 c4+<i 5 o4 ( 6 - 1 2 ) 

Figure 1 1 shows the variation of a with The values of H and ft are plotted against 
in Fig. 12. The solid lines in Figs. 11 and 12 show the fifth-order polynomial curve 
fit As seen in Fig. 12, the function H* gave lower scatter of data points compared 
to the function H. Figure 1 1 shows that the differences between and a are very high 
at higher absolute values of a. 

6.3.2. Calibration Procedure 


The velocity calibration to obtain the coefficients of Eq. (6.3) for each sensor is 
done by keeping the sensors normal to the flow and varying the velocity C. When the 
sensor is normal to the flow, the effective cooling velocity V ej equals the flow velocity 
C. Measurements are taken for about 30 velocities in the selected velocity range. The 
velocity C, obtained from the pressure drop across the nozzle, is approximated 

(isentropic flow assumption) byC = (2AP/p) 1/2 (1 -(d 2 /d 1 ) 4 )" 1/2 where A P is the pressure 
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drop across the nozzle, p is the density of the fluid, and d/d, is the diameter ratio of 
the nozzle exit to the nozzle inlet The above equation is arrived at by applying 
continuity and Bernoulli’s equations for incompressible flow through the nozzle. The 
velocity, obtained from the pressure drop across the nozzle and using a pitot probe at 
a location 0.3 to 0.5 diameters from the exit plane of the nozzle and inside the potential 
core of the jet showed close agreement 

The yaw angle calibration is carried out for a from -40° to 40° at every 2.5° 
interval keeping the velocity C constant The function ot^ and H* are calculated from 
Eqs. (6.7) and (6.11). The coefficients c, in Eq. (6.10) and d { in Eq. (6.12) are found 
by a least-squares fit of o^ d against a and If, respectively. The values of and H* 
are found to have good reproducibility. As compared to and If, the coefficients of 
velocity calibration in Eq. (6.3) can drift and so frequent calibration is essential. It is 
always preferable to do the calibration in the test section where actual measurements are 
carried out Often the specific geometry of the test section and the probes, as in the 
present study, makes it impossible to yaw the probe to the extent to make the sensors 
normal to flow. However, the velocity calibration can be done simultaneously for both 
sensors at any angle a, provided c, and d, are already found from yaw angle calibration 
and the velocity C is known and can be varied. For a known angle a, a, d is obtained 
from Eq. (6.10) using the Newton-Raphson method. The corresponding value of If is 
determined using Eq. (6.12). The effective cooling velocities are obtained from the 
following relations derived from Eqs. (6.7) and (6.11). 


el 


C cosa tan(a w +45) 
H m \jl + tan 2 (a id +45) 


(6.13) 


V e2 = 


C cosa 


H'^\ + tan 2 (a u +45) 


(6.14) 


Figure 13 shows velocity calibrations with a = -45°, 0°, and +45°. The flow velocity 
C is normal to sensors 1 and 2 when a is 445° and -45°, respectively. The two 
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calibration curves for each sensor are almost identical, which proves the validity of the 
above-mentioned calibration procedure. 

Three separate programs generate the calibration coefficients from the raw digitized 
data obtained by executing the program XCAL.FOR. The program XCALP.FOR 
generates the coefficients in Eq. (6.3) from the raw data obtained by the velocity 
calibration keeping the sensor normal to the flow velocity. XCALF.FOR obtains the 
yaw calibration coefficients in Eqs. (6.10) and (6.12). The program VEFF.FOR 
generates the coefficients in Eq. (6.3) from the raw data obtained by the velocity 
calibration when the sensors are not normal to the flow. Hie above-mentioned programs 
are in Appendix B. 


6.33 Calibration Uncertainty 


The calibration uncertainties of the various quantities are estimated according to the 
method suggested by Yavuzkurt (1984) and is based on the uncertainty analysis by 
Moffat (1982). Table 3 shows the uncertainties for four different velocities. The main 
contribution to the uncertainty comes from the differential pressure transducer which has 
an uncertainty of ± 0.6 Pa. However, significantly lower uncertainties can be achieved 
by using transducers or manometers with lower uncertainties. 

6.3.4. Yaw Calibration at Different Velocities and Yaw Angle Correction 

A yaw angle calibration is carried out at different velocities to investigate the effect 
of velocity on the yaw response. The results are plotted in Fig. 14. Note that the value 
of a ld varies with a and velocity C. For a given a, the variation of a* increases with 
decreasing velocity. The above variation is also higher at a higher absolute value of a. 
This can be explained in terms of the ^-factors of each sensor. A preliminary 
investigation showed that for a given a, the k remains almost constant for velocities 
above 17 m/s and for -20° < a < +20°. Lekakis et al. (1989) found that k is constant 
for flow velocities higher than approximately 15 - 20 m/s. The relation between a* and 
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Table 3 Calibration uncertainties 


c 

m/s 

AC/C 

% 

A VJV. 

% 

ACt^Oy 

% 

A//7/T 

% 

5 

2.00 

2.30 

3.30 

2.95 

10 

0.50 

1.30 

1.80 

1.28 

20 

0.10 

1.22 

1.71 

1.09 

30 

0.06 

1.20 

1.70 

1.07 


kj and can be obtained from Eqs. (6.4), (6.5) and (6.7), i.e.. 


tan(a w +45) 


N 


sin 2 (45 +a) +fc 2 cos 2 (45 +a) 
sin 2 (45 -a) +*2 cos 2 (45 -a) 


(6.15) 


Since ^ and are functions of C and a, the left-hand side of Eq. (6.15) depends on C 
for a particular a. Based on the assumption of a power law relationship between Eq. 
(6.15) and C, Eq. (6.16) can be derived to compensate for the deviation of a id . When 
using the result of yaw angle calibration at a velocity above 20 m/s to any other velocity 
below 15 m/s, a id was corrected using the following relation. 


tan(a w +45) 

Rtf = 

f ^yn 

^Ref 

tan(a. d +45) 

ITJ 


The subscript Ref denotes the quantities at the reference velocity at which the yaw angle 
calibration is carried out. The power m is a function of a and can be least-square-fitted 
by a third-order polynomial as shown in Fig. 15. i.e.. 
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(6.17) 

m = e Q +e x a+e 2 a?+e^ 

Figure IS was arrived at using a reference velocity yaw angle calibration at 22 m/s and 
two other calibrations at 5 m/s and 10 m/s. 


6.4. Reduction Method 


This section briefly describes the steps to calculate the velocity components from 
the voltage outputs of the two sensors obtained during an actual measurement The first 
step is to compensate the anemometer output voltage of each sensor for the change 
in fluid temperature. An equation for temperature compensation is obtained from the 
modified form of King’s law, £ fr 2 = (A+ B*C *)(T S -T a ). As shown by Lekakis (1988), the 
temperature dependency of the constants A and B can be neglected for a hot-film sensor 
of 25 pm diameter at velocities above 1 m/s. This leads to a temperature compensation 
formula given by 


E j = ^ 


T,~T a 

T.-T' 


(6.18) 


where T s , T c , and T a are the sensor operating temperature, calibration temperature, and 
the temperature of fluid during actual measurement, respectively. As a second step, the 
instantaneous effective velocities V el and V e2 are calculated from instantaneous 
temperature-compensated voltages using Eq. (6.3). The instantaneous value of is 
obtained from V tl and V e2 using Eq. (6.7) while a and //* are calculated using Eqs. 

(6.10) and (6.12). The magnitude of instantaneous velocity C is determined using Eq. 

(6.11) . Its components V x and V y are calculated from its magnitude and direction a. 
If the velocity C is below 15 m/s, is corrected by Eq. (6.16) using the yaw correction 
parameter m obtained from Eq. (6.17). From the new a^, instantaneous values of a, //*, 
and C are computed again using Eqs. (6.10), (6.12), and (6.11), respectively. The 
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Fig. 15 Variation of yaw correction parameter m with a 


instantaneous velocity components V, and V, are calculated as before. 

6.5. Correction Results, Comparison 

This section compares the results of the single velocity calibration without the yaw 
cotrecdon to those with the yaw correction. After the calibration was complete. 50 new 
sets of data independent from that of calibration were taken in the same calibration jet 
covering a velocity range of 10 - 30 m/s and angle -30> < ot < -30». The actual values 
of C, V„ and V y are obtained from the measured pressure drop across the nozzle, 
temperature of air, and a read from the vernier of the rotary table. The absolute 
percentage deviation between actual and calculated C is given by 
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e c =- 


K-cA 


x 100 


(6.19) 


where C a and C c are actual and calculated values of C. Similarly, percentage deviations 
of V x and V r denoted by e Vx and e Vy , are computed. Aa denotes the absolute difference 
between actual and calculated a. 

Table 4 shows the maximum deviations of C, V x , V y and a when the yaw angle 
calibration at 22 m/s is used. These deviations were expected from the results plotted 
in Fig. 14. At the velocity of 10 m/s, Aot^ is higher compared to deviations pertaining 
to the velocity range of 20 - 30 m/s. The above high angle deviations result in 
significant error for velocity, particularly for the y-direction component Table 5 gives 
the results for the velocity 10 m/s when the yaw correction is applied. The error 
decreases significantly and the deviations are of the same order as those in the 20 - 30 
m/s range. The calibration method presented here is faster, easier to implement and 
requires fewer steps when compared to full velocity yaw angle calibration methods. 


Table 4 Maximum deviation between actual and calculated values of velocities 


and angle for the case without yaw angle correction 


| Angle a 

Velocity C 

^Cmax 

^Vx,max 

e Vy.max 


1 o 

m/s 

% 

% 

% 

0 

-20 - +20 

20-30 

1.3 

1.2 

3.0 

.5 

±20- ±30 

20-30 

2.0 

2.7 

3.8 

.9 

-20 - +20 

10 

1.3 

1.5 

8.0 

1.9 1 

±20- ±30 

10 

1.1 

3.9 

10.0 

3.5 | 
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Table 5 Maximum deviation between actual and calculated values of velocities 
and angle for the case with yaw angle correction 


Angle a 

Velocity C 

^Cmax 

£vx,max 

^Vy t max 

^®max 

0 

m/s 

% 

% 


° 1 

-20 - +20 

10 

1.25 

1.27 

3.0 

.74 

±20 - ±30 

10 

1.0 

1.7 

3.6 

1.1 


6.6. Calibration of Single Sensor Hot-film Probes 


All the preliminary and spectral measurements are performed with single sensor 
hot-film probes. The calibration of the single sensor hot-film probe is accomplished by 
keeping the hot-film sensor normal to the flow velocity and taking about 20-30 readings 
of (E,Q in the selected velocity range. A fourth-order polynomial function of the 
anemometer output voltage E accurately represents the flow velocity C. The coefficients 
of the polynomial are obtained by a least-squares fit The program CTAN.FOR 
(Appendix B) processes the data acquired during the calibration of the single sensor 
probes by using the program ADRDTR.FOR (which generates the calibration 
coefficients and writes to the CTA.CAL file). In actual measurements, if the 
temperature of the flow differs from the calibration temperature, the measured 
anemometer voltage E m is temperature compensated using Eq. (6.18) to obtain E. 
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7. DATA REDUCTION AND ANALYSIS 

As previously mentioned, digital data acquisition acquired the data. The digitized 
data at each location, stored in individual files, are processed to obtain the mean 
velocity and Reynolds stress components. The velocity and Reynolds stress components 
obtained in probe coordinates are transformed to an appropriately chosen curvilinear 
coordinate system. This section presents the equations and the methods employed for 
data reduction and analysis. 

7.1. Data Reduction for Steady Wakes 

For data reduction and analysis, the characteristic response of X-film probe is stored 
as calibration coefficients. As explained in Section 6, the instantaneous velocity 
components are calculated from the temperature compensated instantaneous voltages 
using the calibration coefficients. The velocity components are obtained in the probe 
coordinates that, in the present measurements, coincide with the radial and tangential 
directions to the convex wall. V x and V y denote the instan taneous velocity components 
in the tangential and radial directions, respectively. The radial velocity V y is positive 
if its direction is toward the convex wall. The instantaneous velocity components can 
be represented in the following form. 

V = V + v ; V = V + v (7.1) 

x X x 9 y y y 

V x and V y are the mean (time averaged) velocity components in the x and y directions 

(tangential and radial directions), respectively. The turbulent fluctuation components are 
denoted by v x and v r The mean velocity components, also known as time average or 
global mean, are given by 

i N 

v = _ y V 

z N % x > 


(7.2) 
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v = 1 Yv < 7 - 3 > 

' N% y ' 


where N (=32768) is the total number of samples per sensor of the X-film probe at one 
probe location. At the sampling rate of 2 kHz, used in the investigation of steady 
wakes, 32768 samples per sensor provided good convergence for the mean velocities 
and Reynolds stresses. The mean square values of the components of turbulent velocity 
fluctuations are obtained from the instantaneous and mean velocities as 


iy r \ 


N 


(7.4) 


v y 




(7.5) 


and the percentage turbulence intensity is 


T, - 


x 100 = -i- 4E(V,-V/ X 

V N N 


100 


(7.6) 


The Reynolds shear stress is calculated by 


N 




(7.7) 


The program BXPRO.FOR reduces the digitized data and calculates the mean velocity 
and turbulent stress components in the probe coordinates. 
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7.2. Data Analysis for Steady Wakes 

The measurements made in the probe coordinates (x,y) shown in Fig. 16 give the 
tangential velocity component V x and the radial velocity component V . To compare 

with the plane wake data, the results must be represented in a curvilinear coordinate 
system (^-^), where ^ is the direction along a streamline near the center of wake and 
^ the direction normal to it The maximum inclination between these two orthogonal 
coordinate systems was less than 7.5°. Therefore, the distance taken radially from the 
wake center to a measuring point was approximated as ^ and for all the measuring 
points at an angular position 6, the coordinate was assumed constant The errors due 
to this approximation will be small considering that for most stream wise locations the 
inclination between the two coordinate systems was less than 4°. 

Equations (7.10)-(7.14) give the equations for transforming the time averaged 
velocity and turbulent stresses calculated in the (x,y)-coordinate to the curvilinear 
coordinate system The instantaneous velocity components in can 

represent the instantaneous velocity components in the (x,y)-coordinates, i.e., 

U = Vcosft + Vsinft (7.8) 

* y 

V = Vcosft - V^sinft (7.9) 

where ft is the angle between the ^ and x-direction, and U and V are the velocities 
in the and ^ directions, respectively. Also, the mean velocity components in the (£ r 
jy-coordinates are obtained from the mean velocities in the (x,y)-coordinates by: 

U = Vcosft + Vsinft ( 7 - 10 ) 

* y 

V = V y cosft - V,sinft (7- 11 ) 

where U and V are the mean velocities in the % } and % 2 directions, respectively. 
Subtracting the mean velocity value from the instantaneous one gives the fluctuating 
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cylinder, 1.98 dia. 

Fig. 16 Representation of probe coordinate and curvilinear coordinate systems 


velocity (u = U-U, v x = V-V x , etc.). The mean Reynolds stress components in the 
(^^-eoordinates are obtained by time-averaging the product of the fluctuating 
velocities and are given by: 


IP = v^cos 2 f) + v^sin 2 f) + v x vjsin2'& 


(7.12) 


V 


= 7 T sin 2 d + v^cos 2 # - vvsin2f) 
x y A y 


(7.13) 
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uv = + v x v y cos2f) (7.14) 

The procedure for finding the mean velocity defect U v the location of maximum 

wake velocity defect, and the edges of the wake are illustrated with the measurements 
at a 35° angular position for the zero pressure gradient case. A hypothetical potential 

velocity distribution for V xp is found in the wake by fitting the mean velocity V x in the 

region outside the wake with a suitable curve on both sides. The example in Fig. 17 
shows that the outside region of the wake for finding the hypothetical potential velocity 
distribution was chosen between 110 < r-rj < 150-mm on the convex wall side and 
between 235 < r-^ < 285-mm on the concave wall side. A least-squares fit by a third 
degree polynomial was employed to find the potential velocity distribution. Nakayama 
(1987) used a straight line fit to find the potential velocity distribution in the study of 
wake subjected to mild curvature. For the present case, a straight line fit through the 
mean velocity data outside the wake was inaccurate for deter mining the potential 
velocity in the wake for all stream wise locations. In general, a least-squares fit by a 
third degree polynomial accurately represents the potential velocity distribution. A 
comparison of the above potential velocity distribution against the velocity distribution 
obtained by measurements at selected stream wise locations without the wake generating 
rod, also supported the choice of third degree polynomial. This is clearly displayed in 

Fig. 18, where the V x data without the wake generation is plotted along with the wake 

velocity data at an angular position of 35°. Curves 3 and 4 in Fig. 18 represent the 
hypothetical potential velocity distribution plotted by fitting the outside wake velocity 
data obtained with the wake generating cylinder by first and third degree polynomials, 
respectively. As seen, the hypothetical potential velocity distribution obtained by a third 
degree polynomial fit agrees with the velocity distribution obtained without the wake 
generating cylinder. Also, the potential velocity obtained without the wake generating 
cylinder agrees with free vortex distribution rV x = constant 

The wake velocity data and hypothetical potential velocity distribution determine 
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Fig. 18 Nondimensional velocity profile at an angular position of 35°. (1-wake 
velocity; 2-velodty without wake; 3-potential velocity using linear fit; 4-potential 
velocity using third degree polynomial) 



50 


the velocity defect distribution. To accurately obtain the location of the maximum 
velocity defect, a smoothed cubic spline function is used to fit the tangential component 

of the velocity defect V xl (V xl • V - V x ). The wake edges were determined by an 

integral method developed by the principal investigator and was similar to the one used 
by Schobeiri et al. (1992) in the investigation of boundary layers on convex and concave 
walls. The method involves numerical integration of defect velocity and potential 
velocity profiles. Refer to Fig. 17 for an explanation of the method. The tangential 

component of wake velocity V x is curve fitted by a cubic spline function with no 

smoothing. The area under the hypothetical potential velocity distribution between a 
starting point r, on one side of the wake and the location of the maximum velocity 
defect r c was found by numerical integration. The area under the tangential component 
of wake velocity was subtracted from the above area to find the area under the wake 
velocity defect (denoted by A). The numerical integration continued by incrementing 
the starting point in small steps, going toward the center of the wake, and calculating 
the area A, under the velocity defect profile between the new starting point and the point 
of the maximum wake velocity defect The wake edge is located when the percentage 
deviation between A and A, exceeds a specified value from 0.5% to 1%. The other 
wake edge is located by repeating the steps using r, as the starting point and moving 
toward the center of the wake. The wake edge locations are sensitive to the initial 
selection of the potential region used to find the hypothetical potential velocity 
distribution. However, the integral parameters, momentum thickness and wake width 
(defined later) are much less sensitive to the wake edge locations, especially if the wake 
edge locations are in the potential flow region. The tangential component r.m.s velocity 
distribution, which was found to be less sensitive to the choice of potential flow region, 
provides an alternative to the mean velocity distribution for finding the wake edges. 
The r.m.s velocity distribution used the integral method applied for the mean velocity 
distribution to find the wake edges. The hypothetical potential distribution of the r.m.s 
velocity in the wake was found by a linear fit of the r.m.s velocity data outside the 
wake region. Determination of the wake edges from r.m.s velocity provides advantage 
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for far wakes where the velocity defect can be very small. When the values of 
momentum thickness obtained by using the wake edges from the mean velocity and 
r.m.s velocity distribution differed more than 1.5%, the initial choice for the potential 
flow region for finding the hypothetical potential velocity distribution was changed. The 
procedure was repeated until the deviation was within 1.5%. 

As mentioned before, the velocity components in the probe coordinates (x,y) must 
be tr ans formed to the curvilinear coordinate system To find the angle ft, 

required for the above transformation, the location of the maximum velocity defect was 
found at every stream wise location. The location of the maximum velocity defect will 
also be called as the wake center. Curve fitting the locations of maximum wake defect 
by a least-squares fit determined the trajectory of the path of the wake center. The 
angle ft between the wake centerline and probe in the x direction was found at each 
measuring station along the wake centerline. The angle ft calculated in this manner 
varied with the type of curve fit used for the path of the wake centerline. The angle ft 

closely agreed with the velocity vector angle a (a = tan _1 (V y / vj» for most streamwise 

locations at the location of maximum wake velocity defect At the streamwise locations 
where ft was different from a, the difference was less than 1°. It was possible to get 
close agreement between a and ft even in these locations, if the degree of the 
polynomial curve fit for the wake center path differed from the one used for other 
locations. Considering the uncertainty in locating the wake center and calculating the 
velocity components using the X-film probe, it can be assumed that the flow angle a 
at the wake center is equal to ft. In other words, the velocity vector is tangent to the 
wake centerline at the location of maximum velocity defect Therefore, the wake 
centerline is a streamline with ^ = 0 in the curvilinear coordinate system. 

The components of mean velocity and Reynolds stresses in curvilinear coordinate 
system are calculated from Eqs. (7.10)-(7.14). The velocity defect distribution, 
maximum value of velocity defect, and location of the maximum velocity defect are 

calculated for the streamwise component U. Figure 19 shows the schematic diagram 
of the velocity defect distribution for the streamwise velocity. The velocity defect 
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component in the stream wise direction U v defined as U x = U p - U, is calculated in 
a manner identical to the determination of the tangential velocity defect component 
Here, U p represents the hypothetical potential velocity distribution obtained by curve 

fitting U velocity outside the wake. The location of the maximum velocity defect 
obtained from U was almost the same as the one obtained from V x . 

The maximum velocity defect U lm is used as the velocity scale to 

nondimensionalize the mean velocity defect, normal velocity V, and Reynolds shear 

stress. Many researchers have used (UJd/ix-xJ)' 1 **) as the velocity scale for plane 

turbulent wakes at zero pressure gradient, since the maximum velocity defect decay is 
proportional to it in plane turbulent wakes. The notation x stands for the downstream 

distance from the wake generating cylinder, x 0 for the virtual origin of the wake, and U m 

for the freestream velocity. The literature reports values ranging from 40 to 100 
cylinder diameters for x 0 . The length scale to nondimensionalize ^ is the wake width 
b defined by 

b = 77 “X. ^ (7.15) 

U lm 

Note that many researchers used different definitions for b. Some researchers used the 
width measured between the edges of the wake and the width measured at half height 
of the velocity defect profile. The b in this study differs from the b used by Eifler 
(1975) by a constant factor. 

A characteristic quantity used in the study of wakes is momentum thickness Sj. The 
momentum thickness, representing the momentum deficit due to the wake, is given by 

8 > ■ -=rfy (7.16) 

U P» 

The momentum thickness Sj should be constant for far wakes at zero pressure gradient 
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Fig. 19 Representation of stream wise component of velocity, velocity defect, and 
potential velocity distribution 


The values of b and 5^ were found by numerical integration. 

7.3. Data Reduction and Analysis for the Unsteady Wakes 

The wake quantities behind the moving cylinders of the rotating wake generator are 
computed by phase averaging techniques. This section presents the complete details of 
the data reduction and analysis used for unsteady wakes. 

7.3.1. Wake Development in the Relative Rotating Frame of Reference 

A stationary X-hot-film probe measured the wake development from the moving 
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cylinders. The moving wakes generated by the rotating wake generator periodically 
cross the stationary X-probe. The X-probe measures the velocity components in probe 
coordinates (x,y) and absolute (stationary) frame of reference. The wake development 
behind the moving cylinder must be established in a frame of reference relative to the 
moving cylinder. Also, the velocity components must be expressed in a curvilinear 
coordinate system along the wake centerline. Figure 20 shows the kinematics of the 
wake development in the relative flow behind the cylinder. The wake generator is 
rotating in a counterclockwise direction with a peripheral velocity U, for the wake 
generating cylinder. The wake pattern at a certain instant is shown by the dotted line. 
At the same instant the wake generating cylinder makes an angle (3 with respect to the 
horizontal. The angle |3 is a function of time and is represented by P * P o +(r o -r)co. 

Here, co is the angular velocity, t 0 is the time when the wake center is at the probe 
location, and f3 0 is the angular position at time f 0 . The X-probe located at an angular 
position 6 measures the velocity components in the probe 
coordinates (x,y). The relative spatial vector \ T is given by 

C-f-r 

where Z, is the absolute spatial vector and x = U t dt) is the spatial vector along 

the peripheral velocity. Decomposition of d£, r in the x and y directions gives the 
components of relative spatial vector in probe coordinates, i.e., 

= ^+t/,sin(P-6)<fr 
= dZ^-U ( cos$-Q)dt 

tn and Z^ are the components of absolute spatial vector in the x and y directions, 
respectively. The relative spatial vector components in the probe coordinates are 
transformed to the curvilinear coordinate system defined along and perpendicular to the 
trajectory of the wake centerline. The relative spatial components in the curvilinear 
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coordinate system are given by 

d^ lr = costt - d£ ry sin& 

dt^ = ^cosd + sin* 

where 0 is the angle between the probe coordinate and curvilinear coordinate system. 
Substituting and in the above equations gives: 

d% lr = rf^cosd - <2^sind + U t sm($-Q+ft)dt 


dt^ = d^ y cosft + ^sinft - U t cos($~Q +ft)dt 
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Dividing the above two equations by dt gives the velocity components in the curvilinear 
coordinate system and relative frame of reference, i.e., 

U r = V^cosd - V y sind + f/,sin(p-e+tf) (7.17) 

V r = V cos'd + V^sind - f/ f cos(|3-0+d) (7.18) 

where V x and V y are the absolute velocity components in the x and y directions, 
respectively. 

7.3.2. Data Reduction by Ensemble Averaging 

As mentioned in Section 5, the data acquisition was triggered by a once-per- 
revolution signal from a fiber-optic proximity sensor. The data was reduced by 
ensemble averaging (also referred as phase averaging) method. During one revolution 
of the wake generator, a total of 2048 instantaneous voltage samples were taken for each 
channel of hot-film system. The above number was chosen to resolve the periodic wake 
with sufficient points. The hot-film voltages were sampled for 500 revolutions to obtain 
convergence for the phase averaged quantities. Since the wake generator had three rods, 
500 revolutions of the wake generator produced 1500 primary periodic wakes. 

An instantaneous measured quantity of the periodic wake can be considered as a 
combination of time averaged component, periodic component, and a random fluctuation 
component Applying this definition to an arbitrary instantaneous quantity Q, it can be 
written as 

Q = Q + Q + q 

where Q is the time averaged value, Q is the periodic component and q is the random 
fluctuation component The sum of the time averaged component and the periodic 
component gives the ensemble average <Q>. 


<Q> = Q + Q 
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The ensemble average, also known as phase average or mean at constant phase, is 
calculated by 


N 


<QM)> - 4 £ 0 4 «,) 

/V jm 1 


where i = l,2,...m, r, = (i-l)Ar, m (=2048) is the number of samples of the quantity Q 
acquired during one revolution. At is the time interval between two samples where the 
reciprocal is equal to sampling frequency, and N (=500) is the total number of records 
of m samples. Figure 21 shows a typical example of instantaneous, time averaged, 
ensemble averaged, periodic, and random fluctuation component of tangential velocity. 
The curves shown are obtained from actual measurements of the periodic wakes from 
a stationary X-film probe. The period of wake generation T is obtained from the 
reciprocal of wake passing frequency. The two wakes seen in the curves represent 
primary and secondary wakes. The primary wakes are generated during the upward 
movement of cylinders and the secondary wakes are generated during the downward 

movement of cylinders. 

The ensemble averages for V x , V r l/„ and V r are obtained by replacing Q with the 
corresponding velocity components. The ensemble averaged velocity components in the 
probe coordinate and absolute frame of reference are given by 




(7.19) 


and the ensemble averaged velocity components in the curvilinear coordinate system and 
relative frame of reference are calculated by 



(7.20) 


The ensemble averaged Reynolds normal stresses are obtained by ensemble averaging 
mean square value of the turbulent fluctuations, i.e., 
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Fig. 21 Exemplary presentation of the normalized tangential component of velocity 
for different type of averaging 
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S imilar ly, the ensemble average of Reynolds shear stress is calculated by 

<v,vM> * i E - <V,«,)» (V,«,) - <V,,«,)»] (7 ' 25) 

1 1 iV ;-l 


<u,v r (I,)> = i E MW - <^(',)» <7 - 26) 


N ~~ '> 


The subscript r denotes the relative frame of reference. 


7.33. Data Analysis 

Data analysis for the periodic unsteady wakes involves the transformation of the 
velocity components in probe coordinates to the curvilinear coordinate system and 
relative frame of reference. This transformation was done on instantaneous velocity 
components using Eqs. (7.17) and (7.18). The ensemble averaged velocity and 
Reynolds stress components were found from Eqs. (7.19)-(7.26). 
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The transformation from the probe coordinates to the curvilinear coordinate system 
requires the angle 0. Accurate determination of the angle -0 from the trajectory of wake 
centerline requires measurements at many locations. However, this angle can be 
obtained by applying the stationary wake results. For stationary wakes, it was observed 
that the velocity vector at the location of maximum defect was tangential to the 
trajectory of the wake centerline. Assuming this observation is true for unsteady wakes, 
the angle can be determined as the angle between the probe axis x and the mean 
relative velocity vector at the location of maximum velocity defect The location of 
maximum velocity defect was found for the resultant relative velocity C r 

(C 2 = Uj + V 2 ). The locations of maximum velocity defect obtained from the 

resultant velocity C T and stream wise velocity U r were found to be the same. The 
procedure for finding the maximum velocity defect location of maximum velocity 
defect and the edges of the wake was identical to that of steady wake. 

The ensemble averaged quantities in the relative frame of reference, obtained as a 
function of time, can be represented as a function of spatial coordinate The spatial 
coordinate 2^. is calculated by assuming that the wake passes the measuring location at 
the same velocity as the peripheral velocity U r The direction of U, is assumed constant 
during the interval when the wake passes the measuring location and is taken as the 
direction corresponding to the time t 0 at which the wake center coincides with the 
measuring location. This leads to an expression for ^ given by 

& = u,(t 0 -t) cos(P-e-H» (7.27) 

In Eq. (7.27), f/ r cos(|3-0+£) represents the component of U t along the 2^ r The wake 

width b, similar to the case of steady wake, is obtained by numerical integration and 
defined by 

b - j-r<vs4» 

U lmr 


(7.28) 



8. PRESENTATION AND DISCUSSION OF RESULTS 


This section presents the wake measurement results. All measurements were carried 
out for an average inlet velocity of about 20 m/s. The wake development behind a 
stationary cylinder at zero, positive, and negative pressure gradients are discussed first. 
Profiles of mean velocity and Reynolds stresses are obtained in similarity coordinates. 
These results are analyzed and compared with reference to the symmetrical plane 
turbulent wakes. Finally, the results of the wake development behind the cylinders of 
a rotating wake generator are discussed. 

8.1. Wake Development at Zero Pressure Gradient 

An X-hot-film probe measured the wake behind a 1.984-mm diameter stationary 
cylinder, located at mid-height of the wake generating section. The curved channel test 
section haH an inlet to exit area ratio of 1. The wake profiles were obtained at fifteen 
angular positions (also called streamwise positions) from 0 = 0° to 70° in 5° intervals. 
The first measuring station 0 = 0° corresponds to the inlet of the curved test section and 
is at a distance of 67-mm downstream of the wake generating cylinder. 

8.1.1. Patti of Wake Center, Curvature of the Path of Wake Center, and 
Development of the Wake 

The wake center, defined as the location of the maximum velocity defect, is found 
by the methods described in Section 7. The wake center path represents the direction 
for the previously defined curvilinear coordinate system. Figure 22(a) shows the radial 
distance from the convex wall to the wake center, denoted by r-r if at various streamwise 
positions. Figure 22(b) shows the local curvature of the wake centerline. As the wake 
propagates through the channel, the trajectory of the wake center gradually moves 
toward the convex wall up to a streamwise location of \Jd = 240, and from there 
onward it moves away from the convex wall. The maximum inclination between the 
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Fig. 22 Radial position (a) and local curvature (b) of wake center at different 
streamwise positions 
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trajectory of the wake center and the tangential direction x is less than 5 . The local 
curvature of the wake centerline shown in Fig. 22(b) is calculated from the first and 
second derivative of the polynomial fit through the wake center at different streamwise 
position. The negative value of K suggests that the curvature of the wake centerline is 
concave in the positive t, 2 direction. 

Figure 23(a) shows the decay of maximum velocity defect normalized by the 
potential velocity at wake center U^. The solid line represents a power law fit with 

ijj _ (T~jd)~° n . For comparison, a zero pressure gradient straight wake follows 
~ (x/d)~° 5 for near wake (x/d < 100), and U X JU_ - (x/d+xjd)~° 5 for far wake 
(x/d > 100). Here, U m is the free-stream velocity and x c is the virtual origin of the 
wake. The value of x 0 reported by different researchers varies from 40 to lOOd. 
Obviously, the decay of wake centerline velocity defect for the present curved wake is 
faster than the straight wake. Figure 23(b) shows the wake width b nondimensionalized 
by the diameter of the wake generating rod as a function of % t !d. The solid line is the 
power law fit with bid - &Jd) 07 \ b/d is proportional to (x/d) 0 5 for near wake and 
(x/d+x/df 5 for far wake for a zero pressure gradient straight wake. Therefore, the 
spreading rate of b in the curved wake is higher than the straight wake. The difference 
in the absolute value of powers (-0.71 and 0.74) for wake width and velocity defect may 
be due either to the uncertainty involved in finding U lm and b or to the mild pressure 

gradient 

Figure 24(a) shows the hypothetical potential velocity at wake center 
nondimensionalized by the freestream velocity just upstream of the wake generating rod 
as a function of fyd. The hypothetical potential velocity distribution along the wake 
centerline can give some indication of the streamwise pressure gradient along the wake 
centerline. An increasing potential velocity along the wake centerline suggests a 
negative pressure gradient and vice versa. An approximately constant value of potential 
velocity confirms a near zero pressure gradient along the streamwise direction. Figure 
24(b) shows the pressure coefficient C p (C p = (p-pjf ^ at * e wake center f° r 

various streamwise locations. Here, p denotes static pressure at the wake center and 
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Fig. 23 Decay of maximum velocity defect (a) and growth of wake width (b) as a 
function of stream wise position 







Fig. 24 Variation of potential velocity (a) and pressure coefficient (b) at the wake 
center as a function of streamwise position 



66 


p in denotes static pressure at the straight section upstream of the wake generating 

cylinder. The static pressure p at the wake center is calculated from the total pressure 

p, at the wake center measured using the Kiel probe and the velocity obtained from the 

X-film probe (i.e., p = p t - — p( £/ 2 + V 2 +tT 7 +v T ) ). As seen in Fig. 24(b), the pressure 

2 

coefficient is approximately constant, which confirms the zero pressure gradient Figure 
25(a) shows the momentum thickness ratio C w , defined as C w = 2 §Jd. The solid line 
in Fig. 25(a), obtained from Eq. (8.8), agrees with the data obtained by numerical 
integration. The momentum thickness ratio is the same as the drag coefficient for the 
zero pressure gradient straight wake case. The nearly constant value of C w clearly 
shows the absence of any significant stream wise pressure gradient Another useful 
quantity in the study of wakes is the shape factor H 12 = 5y8 2 . Here, 8 X is the wake 
displacement thickness given by 

5 , - -Lj~(U f -U)d^ ( 8 . 1 ) 

U po 

and Sj is the previously defined momentum thickness. The von Kdnndn momentum 
integral equation interrelates the shape factor, momentum thickness, and stream wise 
distribution of potential velocity. As shown by Raj and Laksminarayana (1973), the 
shape factor of a cascade wake can be related to the shape factor at the tr ailing edge of 
the blade. The momentum thickness can be predicted if the shape factor and stream wise 
distribution of potential velocity are known. Figure 25(b) shows the shape factor 
variation with downstream distance from the wake generating cylinder. The shape 
factor first decreases and then approaches a nearly constant value in the far wake. The 

limiting value of the shape factor for far wakes can be found at UJU^ 0, i.e., 

lim H n = lim H n . Expressions for momentum thickness and shape factor are 

UJU "-* 0 

obtained in the following derivations. 

S 2 - -ir r* Wp-WZ* = a 

K ui J - 


( 8 . 2 ) 
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Fig. 25 Momentum thickness ratio (a) and shape factor (b) at different stream wise 
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Schobeiri (1992) showed that the expression U p - U ( 1-— ) can approximate the 

R 

potential velocity distribution. This expression is obtained from the equation of motion 

for fully in viscid flow employing some simplified assumptions. The in viscid flow 

equation yields U p = U^il +£ n /R)~ l . Expanding (1+^//?)' 1 by Taylor series and 

L 

neglecting the higher order terms, the potential velocity becomes U = U (l-_). 

R 

Substituting the expression for potential velocity, the momentum thickness becomes: 

^ <83) 


- 4 T f~ufe 


Normalizing U x by U lm and replacing f//f/ lm = (see section 8.1.2.) the 


momentum thickness can be written as: 


8, = (g5) 


b 2 u lm r- 


u:_ r- 


The integral in the second term is zero. Thus, the equation for momentum thickness 


reduces to : 


8, = L f % ^dC, - b^L f*~e 

TJ J-~ tt 


u;_ r ~ 


5, = l-_ )H) 

V" J2 u „ 


The momentum thickness ratio C w can be written as: 

C = 2— ^ lm (i - 1 ^ lm ) 

d Up, fiU" 


( 8 . 8 ) 
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The shape factor can be obtained by taking the ratio of 8 t over 5^ i.e., 

U 
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H » = it 2 - 


po 


f % -^<K - b^L f % 
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(8.9) 
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(8.10) 


lim/J 12 = Lim H n = 1 (8.11) 

UJU^-tO 

This shows that the shape factor approaches unity for small defect wakes (H 12 ~ 1 for 
\J X JU < 1 )• This is clearly the trend in Fig. 25(b). The solid line, obtained from the 

theoretical model represented by Eq. (8.10), is in close agreement with the values 
obtained from mean velocity data by numerical integration. Figure 26 shows the 

product U lm b at various stream wise locations. The product U lm b, which is constant for 

zero pressure gradient straight wake, remains approximately constant for the curved 
wake. Table 6 (Appendix A) gives the values of maximum velocity defect, wake width, 
potential velocity at wake center, and average velocity upstream of the cylinder at 
various downstream locations. 


8.1.2. Mean Velocity Distribution 

Figure 27 shows plots of streamwise component of velocity as a function of the 
transverse distance for six streamwise locations. The velocity distributions for other 
streamwise locations are similar to the asymmetric distribution shown in Fig. 27 with 
a higher velocity at the positive side of The transverse location ^ = 0 corresponds 
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Fig. 26 Integral parameter U lm b as a function of stream wise position 


to the wake center while a point with a higher value of ^ corresponds to a location 
closer to the convex wall. The velocity distribution is asymmetric with respect to the 
wake center with a higher value on the positive side of The wake velocity defect 
decreases and the wake width increases with downstream location. A close examination 
of the velocity data points outside the wake and at ^ > 0 for the initial three streamwise 
locations reveals an increasing potential velocity with increasing downstream distance. 
This increase in the potential velocity at the outer half of the wake, which is due to the 
turning of flow from a straight section to the curved channel, is dominant up to the 
streamwise location \ x !d - 96. 

Figures 28-30(a) show the transverse distribution of mean velocity defect for 
different streamwise locations. The mean velocity defect is normalized by its maximum 
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Fig. 27 Transverse distribution of streamwise component of velocity at different 
streamwise positions and under zero streamwise pressure gradient 
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value and the transverse distance by the wake width b. The purpose of normalizing the 
transverse distance with length scale b and the velocity defect with velocity scale U lm 

is to check the existence of similarity for mean velocity defect profiles. Figures 28- 
30(a) also show the existence of similarity for mean velocity defect profiles. The solid 
line represents Eifler’s (1975) results for straight wake given by the function <p r 

<Pi = where y = = ^ 0 . = 0.886 and C = — . The mean 

velocity defect profiles are symmetric and almost identical to those of a straight wake 
except that they are slightly wider on the inner side (concave side of the trajectory of 
the wake centerline) of the wake. This small deviation from the straight wake data is 
more clear at farther stream wise locations. It may be considered that the effect of 
curvature on the mean velocity defect distribution is small. The high scatter of the 
normalized velocity defect at higher downstream locations is because the maximum 
velocity defect is very small at these locations. 

Figures 30(b)-32 show the transverse distribution of normalized transverse (normal) 

velocity V / U lm for various stream wise locations. The transverse distribution at the 
measurement locations shown in Fig. 30(b) is similar to the straight wake results, where 
the distribution is antisymmetric with a minimum at £>0, a maximum at £<0, and zero 

transverse velocity at the center. The V / U lm distribution for straight wake approaches 

zero at the edges. The transverse distribution in Figs. 31 and 32 can be considered as 
a superposition of the distribution at zero pressure gradient straight wake on a 
normalized hypothetical potential distribution of V. The hypothetical potential 
distribution will be dictated by the stream wise pressure gradient and streamline 
curvature. The analytical equation for the transverse velocity distribution obtained from 
the continuity equation is shown by Schobeiri et aL (1993). It should be noted that 
many relevant papers on wakes, including those dealing with symmetrical wakes, have 
not reported the transverse velocity distribution. This may be due to very high scatter 
in experimental data. The consistent trend in the distribution transverse velocity for the 
present measurements shows the reliability of the data. The distribution of velocity at 
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Fig. 29 Transverse distribution of velocity defect at different streamwise positions 
and under zero streamwise pressure gradient, 1 %Jd = 218 to 370 
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Fie. 30 Transverse distributions of velocity defect (a) and normal velocity (b) at 
zero stream wise pressure gradient, (a) %Jd = 400 to 461, (b) \ x !d = 34 to 96 
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Fig. 31 Transverse distributions of normal velocity at different streamwise positions 
and under zero streamwise pressure gradient, - 126 to 278 
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Fig. 32 Transverse distributions of normal velocity at different streamwise positions 
and under zero streamwise pressure gradient, t,Jd = 308 to 461 
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the last three downstream locations in Fig. 32 is different from the other locations 
because the changes in the potential velocity distribution of V. Many factors affect the 
hypothetical potential distribution of velocities. The flow pattern will change as the 
flow enters the straight exit duct from the curved channel. Also, the downstream of the 
exit duct has a 90° bend. The boundary layer growth on the concave wall, convex wall, 
and side walls has some effect on the velocity distribution. The flow may not be 
strictly two-dimensional due to secondary flows that can occur in curved channels 
whose height and width are of the same order of magnitude. All these factors can 
influence the hypothetical velocity distribution in the curved test section. 

8 . 13 . Reynolds Stresses 

Figures 33-40 show the transverse distribution of the normalized Reynolds stresses. 
The Reynolds normal stresses are normalized with respect to its value at the wake 
center. Table 6 (Appendix A) gives the values of Reynolds normal stresses at the wake 
center at different downstream locations. Figures 33-35(a) show the normalized 
Reynolds stress component in the stream wise direction. In comparison with straight 
wake data, the present results exhibit an asymmetric feature due to the curvature of the 
wake path. In a straight wake, the stream wise component of Reynolds stress is 
symmetric with respect to the wake center with a maximum on each side of the wake 
center and a minimum at the wake center. The asymmetry of the Reynolds stresses in 

the present data is due to the asymmetric velocity distribution of U generated by the 
curvature. Generally, a positive velocity gradient in the radial direction suppresses the 
turbulence in a curved shear flow. However, a negative velocity gradient in the radial 
direction promotes the turbulence. This is analogous to the radial equilibrium of a fluid 
element in an inviscid, irrotational curved flow where die flow is stable if the radial 
gradient of angular momentum is positive and unstable if the radial gradient of angular 
momentum is negative. The radius of curvature of the wake centerline in Fig. 22(b) is 
positive in the negative ^ direction. For measurements at all streamwise locations, the 
gradient of streamwise velocity in the positive radial direction is negative on the inner 
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Fig. 33 Transverse distribution of stream wise component of Reynolds normal stress 
at different stream wise positions and under zero stream wise pressure gradient, \Jd 
= 34 to 187 






Fig. 35 Transverse distributions of streamwise (a) and normal (b) components of 
Reynolds normal stress at different streamwise positions and under zero streamwise 
pressure gradient, (a) 1^/d = 400 to 461, (b) = 34 to 96 
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Fig. 36 Transverse distribution of normal component of Reynolds normal stress at 
different streamwise positions and under zero streamwise pressure gradient, 

= 126 to 278 
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Fig 37 Transverse distribution of normal component of Reynolds normal stress at 
different streamwise positions and under zero streamwfee pressure gradient, 
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Fig. 38 Transverse distribution of Reynolds shear stress at different stream wise 
positions and under zero streamwise pressure gradient, tJd = 34 to 187 
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Fig. 39 Transverse distribution of Reynolds shear stress at different stream wise 
positions and under zero streamwise pressure gradient, IJd - 218 to 370 
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Fig. 40 Transverse distribution of Reynolds shear stress at different stream wise 
positions and under zero stream wise pressure gradient, = 400 to 461 


half (concave side of the trajectory of wake centerline, i.e., £ 2 > 0) of the wake. 
Opposed to this, the gradient of stream wise velocity in the positive radial direction is 
positive in the outer half (convex side of the trajectory of the wake centerline, i.e., ^ 
< 0) of the wake. Therefore, the turbulent stresses of the wake should be higher on the 
inner half than the outer half. This is the case for all measurement locations except the 
first measurement location. The asymmetric nature of the stream wise component of 
Reynolds stress is qualitatively similar to the results obtained by Koyama (1983) and 
Nakayama (1987). It may be observed that the asymmetry of the stream wise component 
of Reynolds stress increases with the downstream location. 

The deviationary behavior in the asymmetric nature of the turbulent stresses at the 
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first measurement location may be due to the stream wise pressure gradient generated 
as the flow enters the curved channel from the straight section. The velocity 
distribution should be uniform upstream of the wake generating rod. At the inlet of the 
curved channel, the flow accelerates near the convex wall and decelerates near the 
concave wall. This is evident from the plots in Fig. 27 of the streamwise component 
of velocity at the first three measurement locations. Therefore, the streamwise pressure 
gradient at the inle t region of the curved channel varies across the channel, although the 
streamwise pressure gradient is almost zero along the center region of the wake. The 
effect of this varying pressure gradient on Reynolds stresses is opposite to the curvature 

effect here. 

Figures 35(b)-37 show the transverse distribution of the transverse component of 
Reynolds stresses. Similar to the streamwise component, the maximum value of 
transverse component of Reynolds stress occurs at the inner half of the wake. The 
asymmetry of the transverse component of Reynolds stress is more than that of the 
streamwise component. In other words, the transverse component of Reynolds normal 
stress exhibits more distortion from the symmetrical straight wake results. Note that the 
two maxi ma observed in the straight wake data are not seen in the present data for the 
curved wake. 

Figures 38-40 show the transverse distributions of Reynolds shear stress at various 
streamwise locations. The Reynolds shear stress is nondimensionalized by the square 
of the maximum velocity defect The Reynolds shear stress distribution for the straight 
wake case is antisymmetric about the wake center. For the present curved wake case, 
the Reynolds shear stress distribution shows a strong asymmetry due to the curvature. 
The nature of curvature of the wake centerline and the gradient of streamwise velocity 
in the transverse direction suggest a higher value of Reynolds shear stress on the inner 
half of the wake. This is observed at every streamwise location except the very first 
measurement location, where, as previously explained, the pressure gradient dominates 
over the curvature effect It appears that the Reynolds shear stress distribution in the 
outer half of the wake is closer to a self preservation state than that in the inner half of 
the wake. The Reynolds shear stress at the center of the wake is not zero, although the 
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transverse gradient of stream wise velocity is zero at the wake center. Raj and 
Lakshminarayana (1973) also observed nonzero value of Reynolds shear stress at the 
wake center. 

The Reynolds shear stress in the hypothetical potential flow outside the wake is not 
exactly equal to zero due to the turbulence existing in that region. Measurements at 

selected stream wise locations without wake show a transverse gradient of uv with a 
negative value near the concave wall and a positive value near the convex wall. The 
radial position where uv = 0 is located between the convex wall and mean radius of 

the channel. For example, at the streamwise position 0 = 0°, uv was zero at r - r f = 
120-mm. Wattendorf (1935) and Eskinazi and Yeh (1956) observed similar distributions 
of Reynolds shear stress in turbulent flows in curved channels. The normalized 
Reynolds shear stress distributions in Figs. 38-40 have nonzero values outside the wake. 

The uv outside the wake also has higher absolute value near the concave side of the 
wall (^ < 0). 

8.1.4. Vortidty, Correlation Coefficient, and Turbulent Kinetic Energy 

A transport equation for mean vorticity £2, relating the gradient of mean vorticity 
to a second order derivative of Reynolds shear stress, can _be obtained _ffom the 
momentum equation. The mean vorticity £2 (£2 = -R_) - ^}L) can be 

approximated to - by order-of-magnitude assumptions. Figure 41 shows 

R^2 ^ 

the transverse distribution of normalized vorticity for streamwise locations from = 
34 to 244. The mean vorticity is normalized with U lm /b. Similar to the straight wake 

results, the mean vorticity profiles for the present case are almost antisymmetric with 
respect to the wake center. Therefore, the effect of curvature on mean vorticity profiles 
is considered small. The near zero value of vorticity in the region outside the wake 
suggests that the mean flow is mostly irrotational in that region. The determination of 
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vorticity involves calculating the transverse gradient of velocity by numerical method 
from the cubic spline-fitted data of streamwise velocity, and is highly sensitive to the 
scatter in mean velocity data. This is the reason for high scatter in the mean vorticity 
rijita observed in the furthest downstream locations shown in Fig. 41. 

The correlation between streamwise and transverse fluctuations, which is also a 
measure of the degree of anisotropy of the flow, is represented by the correlation 
coefficient R w and defined as = wl'fp'fp • The correlation coefficient will be 

zero for isotropic turbulence. Figures 42 and 43 show the transverse distribution of the 
correlation coefficient at different streamwise locations. The distribution of the 
correlation coefficient is asymmetric with higher absolute values at the inner half of the 
wake. The maximum absolute value of the correlation coefficient at the inner half of 
the wake remains constant from = 96 onwards. However, the maximum absolute 
value of the correlation coefficient at the outer half of the wake decreases with 
downstream distance and reaches close to zero at = 461. 

The information on turbulent kinetic energy k, k = !.( P+P+w 1 ) , is useful in 

turbulence modeling. Here, w stands for the component of fluctuation velocity 

perpendicular to the ^ plane. An estimate of the turbulent kinetic energy can be 

obtained from k = 1(P<P), which is obtained from the assumption P = -(P+P). 
4 

Figure 44 shows the transverse distribution of turbulent kinetic energy normalized by 
the square of the mean velocity defect The turbulent kinetic energy distribution is 
asymmetric with respect to the wake center with higher values at the inner half of the 
wake. The normalized turbulent kinetic energy increases with downstream location 
because the turbulent kinetic energy decays at a slower rate than the mean velocity 

defect 

8.2. Wake Development at Positive Pressure Gradient 

An X-hot-film probe measured the wake behind a 1.984-mm diameter stationary 
cylinder, with the cylinder located at mid height of the wake generating section. Hie 







Fig. 42 Transverse distribution of correlation coefficient at different stream wise 
positions and under zero streamwise pressure gradient, = 34 to 248 





Fig. 43 Transverse distribution of correlation coefficient at different stream wise 
positions and under zero streamwise pressure gradient, \ x !d = 278 to 461 
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curved channel test section has a 0.7 inlet to exit area ratio. The wake profiles were 
obtained at fifteen angular positions from 0 = 0° to 70° in 5° intervals. The first 
measuring station 0 = 0° corresponds to the inlet of the curved test section and is 67- 
mm downstream of the wake generating cylinder. 

8.2.1. Path of Wake Center, Curvature of the Path of Wake Center, and 
Development of the Wake 

The wake center path representing the direction for the curvilinear coordinate 
system was determined similar to that with zero pressure gradient wake. Figure 22(a) 
shows the radial distance from the convex wall to the wake center, denoted by r-r if at 
various stre am wise positions. As the wake propagates through the channel, the 
trajectory of the wake center gradually moves toward the convex wall up to a 
downstream location = 100, and from there onwards it moves away from the 
convex wall. The maximum inclination between the trajectory of the wake center and 
the tangential direction jc is less than 7.5°. Figure 22(b) shows the local curvature of the 
wake centerline. The changes in the local radius of curvature are similar to that in the 
zero pressure gradient wake. As previously mentioned, the negative value of K suggests 
that the curvature of the wake centerline is concave in the positive E, 2 direction. 

Figure 23(a) gives the decay of maximum velocity defect normalized by potential 
velocity at the wake center U^. The solid line represents a power law fit with 
UJU - . Therefore, the decay rate of maximum velocity defect in the 

positive pressure gradient curved channel is slower than the zero pressure gradient 
curved channel. Figure 23(b) shows the wake width b nondimensionalized by the 
diameter of the wake generating rod as a function of ^,/d. The solid line is the power 
law fit with bid - fejd ) 0 * 1 . Therefore, the spreading rate of b in the positive pressure 

gradient curved wake is higher than in the zero pressure gradient curved wake. 

Figure 24(a) presents the distribution of the hypothetical potential velocity at the 
wake center nondimensionalized by the freestream velocity just upstream of the wake 
generating rod as a function of %,ld. The decreasing hypothetical potential velocity 
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Fig. 44 Transverse distribution of turbulent kinetic energy at different stream wise 
positions and under zero stream wise pressure gradient 
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distribution along the wake centerline is due to the diverging channel that creates the 


positive streamwise pressure gradient Figure 24(b) shows the pressure coefficient C p 


(C, - (p-pj/i 


pV^) at the wake center at various streamwise locations. The pressure 


coefficient is calculated by method explained in section 8.1.1. As seen in Fig. 24(b), 
the pressure coefficient increases with downstream distance, which confirms the positive 
pressure gradient Also, the momentum thickness ratio C w , plotted in Fig. 25(a), 
increases with the downstream location. The solid line in Fig. 25(a), obtained from Eq. 
(8.8), agrees with those values from the velocity profile using numerical integration. 
Figure 25(b) shows the variation of shape factor H n with downstream distance from the 
wake generating cylinder. Similar to the zero pressure gradient straight wake, the shape 
factor approaches unity for far wakes. The rate at which the shape factor approaches 
unity is slightly smaller for the positive pressure gradient wake than the zero pressure 
gradient wake. The solid line in Fig. 25(b), obtained from the theoretical model 
represented by Eq. (8.10), is in close agreement with the values from the mean velocity 

data by numerical integration. Figure 26 shows the product U lm b at various streamwise 


locations. As seen from Fig. 26, the product U lm b increases with downstream location. 

Table 7 (Appendix A) gives the values of maximum velocity defect, wake width, 
potential velocity at the wake center, and average velocity upstream of the cylinder at 
various downstream locations. 


8.2 2. Mean Velocity Distribution 

Figure 45 shows the streamwise component of velocity as a function of the 
transverse distance for six streamwise locations. The velocity distributions for other 
streamwise locations are similar to the asymmetric distribution in Fig. 45 with a higher 
velocity at the positive side of The velocity distribution in Fig. 45 is asymmetric 
with respect to the wake center with a higher value on the positive side of £, 2 - Th e 
wake velocity defect decreases and the wake width increases with downstream location. 
A close examination of the velocity data points outside the wake for the initial three 
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st ream wise locations reveals a nonuniform decrease in potential velocity across the 
channel. This nonuniform decrease in potential velocity across the channel, due to the 
turning of flow from a straight section to the curved channel, occurs up to the 
stream wise location % x ld = 96. 

Figures 46-48(a) are the plots of the transverse distribution of the mean velocity 
defect in similarity coordinates. The solid line represents Eifler’s (1975) results for 

straight wake given by the function tpj, <p t = U x IU lm = e ~ (2l Q\ The mean velocity 

defect profiles are symmetric and almost identical to the straight wake except that they 
are slightly wider on the inner side of the wake. This small deviation from the straight 
wake data is clearer at higher stream wise locations. It may be considered that the effect 
of curvature on the mean velocity defect distribution is small. 

Figures 48(b)-50 show plots of the transverse distribution of normalized transverse 

velocity V / U lm for various stream wise locations. The transverse distribution at the 

first measurement location in Fig. 48(b) is similar to the straight wake results, where the 
transverse velocity at the wake edges approaches zero. The transverse velocity 
distribution shown at other locations can be considered as a superposition of the 
distribution at zero pressure gradient straight wake on a normalized hypothetical 
potential distribution of transverse component of velocity. The stream wise pressure 
gradient and streamline curvature dictate the profile of the hypothetical potential 

distribution of V. The hypothetical potential distribution of V in the wake region is 
almost linear with a positive slope up to a stream wise location % x ld = 400. As 
explained for the zero pressure gradient case, the hypothetical potential distribution at 
the last three measurement locations is affected by different factors that cause the 
transverse velocity distribution at these location to differ from the distribution at other 
locations. 

8.2.3. Reynolds Stresses 


Figures 51-58 show the transverse distribution of the normalized Reynolds stresses. 
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Fig 45 Transverse distribution of streamwise component of velocity at different 
streamwise positions and under positive streamwise pressure gradient 




Fig. 46 Transverse distribution of velocity defect at different streamwise positions 
and under positive streamwise pressure gradient, L/d = 34 to 188 






Fig. 48 Transverse distributions of velocity defect (a) and normal velocity (b) 
positive streamwise pressure gradient, (a) ^Id = 408 to 474, (b) ^ Id - 34 to 96 
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Fig. 49 Transverse distributions of normal velocity at different streamwise positions 
and under positive streamwise pressure gradient, £,/</ = 126 to 282 
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Fig. 50 Transverse distributions of normal velocity at different streamwise positions 
and under positive streamwise pressure gradient, % 1 /d = 313 to 474 
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The Reynolds normal stresses are normalized with respect to its value at the wake 
center. Table 7 (Appendix A) gives the values of Reynolds normal stresses at the wake 
center at different downstream locations. The normalized Reynolds stress component 
in the stream wise direction are shown in Figs. 51-53(a). In comparison with straight 
wake data, the present result exhibits an asymmetric feature due to the curvature of the 
wake path. The radius of curvature of the wake centerline, shown in Fig. 22(b), is 
positive in the negative direction. For the measurements at all streamwise locations, 
the gradient of streamwise velocity in the positive radial direction is negative on the 
inner half of the wake. As opposed to this, the gradient of streamwise velocity in the 
positive radial direction is positive in the outer half of the wake. Therefore, the 
turbulent stresses should be higher on the inner half of the wake than in the outer half 
of the wake. This is the case for all measurement locations except for the first two 
measurement locations. As explained for the zero pressure gradient curved wake, this 
may be due to the varying streamwise pressure gradient existing at the inlet of the 
curved channel. The asymmetric nature of the streamwise component of Reynolds stress 
is qualitatively similar to the results obtained for the zero pressure gradient curved 
wake. In the positive pressure gradient case, the asymmetry of the streamwise 
component of Reynolds stress also increases with the downstream location. 

Figure 53(b)-55 show the transverse distribution of the transverse component of 
Reynolds stresses. Similar to the streamwise component, the maximum value of the 
transverse component of Reynolds stress occurs at the inner half of the wake. The 
asymmetry of the transverse component of Reynolds stress is more than the streamwise 

component 

The tr ans verse distribution of Reynolds shear stress at various streamwise location 
are plotted in Figs. 56-58. The Reynolds shear stress is nondimensionalized by the 
square of the maximum velocity defect The Reynolds shear stress distribution shows 
the strong asymmetry due to the curvature. The nature of curvature of the wake 
centerline and the gradient of streamwise velocity suggest a higher value of Reynolds 
shear stress on the inner half of the wake. This is observed at every streamwise 
location except for the first two measurement locations, where, as previously explained, 
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Fig. 51 Transverse distribution of streamwise component of Reynolds normal stress 
at different streamwise positions and under positive streamwise pressure gradient, 
\ x fd = 34 to 188 
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Fig. 53 Transverse distributions of stream wise (a) and normal(b) components of 
Reynolds normal stress at positive stream wise pressure gradient, (a) tJd = 408 to 
474, (b) \ x td = 34 to 96 
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Fig. 54 Transverse distribution of normal component of Reynolds normal stress at 
different streamwise positions and under positive streamwise pressure gradient, 

= 126 to 282 
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Fig. 55 Transverse distribution of normal component of Reynolds normal stress at 
different stream wise positions and under positive stream wise pressure gradient, ^/d 
= 313 to 474 
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Fig. 56 Transverse distribution of Reynolds shear stress at different streamwise 
positions and under positive streamwise pressure gradient, = 34 to 188 
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Fig. 58 Transverse distribution of Reynolds shear stress at different stream wise 
positions and under positive stream wise pressure gradient, fyd = 408 to 474 


the pressure gradient dominates over the curvature effect. It appears that the Reynolds 
shear stress distribution in the outer half of the wake is closer to a self preservation state 
than the inner half of the wake. The Reynolds shear stress is not equal to zero either 
at the center or outside the edges of the wake. 

8.2.4. Vortidty, Correlation Coefficient, and Turbulent Kinetic Energy 

Figure 59 shows the transverse distributions of normalized vorticity for stream wise 
locations from yd = 34 to 250. The mean vorticity is normalized by UJb. Similar 
to the results of zero pressure gradient straight and curved wakes, the mean vorticity 
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profiles for the present case are almost antisymmetric with respect to the wake center. 
Therefore, the effect of curvature and pressure gradient on mean vorticity profiles in 
Fig. 59 can be considered small. The near zero value of vorticity in the region outside 
the wake suggests that the mean flow is mostly irrotational in that region. As 
mentioned in section 8.1.4, the calculation of vorticity involves the determination of 
transverse gradient of velocity, which introduces scatter in the value of vorticity 
particularly at farther downstream locations. 

Figures 60 and 61 show the transverse distribution of the correlation coefficient at 
different stream wise locations. The distribution of correlation coefficient is asymmetric 
with higher absolute values at the inner half of the wake. The maximum absolute value 
of correlation coefficient at the inner half of the wake remains constant from % x ld =126 
onwards. However, the maximum absolute value of correlation coefficient at the outer 
half of the wake decreases with downstream distance and reaches close to zero at \ x !d 
= 474. The value of correlation coefficient at the outer half of the wake for the positive 
pressure gradient is approximately the same as the value for the zero pressure gradient 
curved wake. However, for the inner half of the wake, the absolute value of the 
correlation coefficient has slightly higher value at positive pressure gradient than at zero 
pressure gradient, especially at higher downstream locations. 

Figure 62 shows the transverse distribution of turbulent kinetic energy normalized 
by the square of mean velocity defect The turbulent kinetic energy distribution is 
asymmetric with respect to the wake center with higher values at the inner half of the 
wake. The normalized turbulent kinetic energy increases with downstream location. 
This is because the turbulent kinetic energy decays at a slower rate than the mean 
velocity defect At a particular stream wise location, the normalized kinetic energy has 
a lower value at positive pressure gradient than at zero pressure gradient 

8.3. Wake Development at Negative Pressure Gradient 

An X-hot-film probe measured the wake behind a stationary cylinder of 1.984-mm 
diameter with the cylinder located at mid height of the wake generating section. The 



Qb/Ui m fib/U 


113 



Fig. 59 Transverse distribution of mean vortidty at different streamwise positions 
and under positive streamwise pressure gradient 
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Fig. 60 Transverse distribution of correlation coefficient at different stream wise 
positions and under positive stream wise pressure gradient, = 34 to 250 
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Fig. 61 Transverse distribution of correlation coefficient at different streamwise 
positions and under positive streamwise pressure gradient, = 282 to 474 
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curved channel test section had an inlet to exit area ratio of 1.3. The wake profiles 
were obtained in 5° intervals at thirteen angular positions from 0 = 0° to 60°. 
Measurements at angular positions beyond 60° were not carried out since the ratio of 
velocity defect to potential velocity was very small. The first measuring station 0 = 0° 
is at a distance of 67-mm downstream of the wake generating cylinder. 

8.3.1. Path of Wake Center, Curvature of the Patti of Wake Center, and 
Development of the Wake 

Figure 22(a) shows the radial distance from the convex wall to the wake center, 
denoted by r-r„ at various stream wise positions. As the wake propagates through the 
channel, the trajectory of the wake center gradually moves toward the convex wall for 
all the measurement locations used for the negative pressure gradient case. The 
maximum inclination between the trajectory of the wake center and the tangential 
direction x was less than 7.3°. Figure 22(b) shows the local curvature of the wake 
centerline. The changes in the local radius of curvature are almost similar to the zero 
pressure gradient wake. As mentioned before, the negative value of K indicates that the 
curvature of the wake centerline is concave in the positive ^ direction. 

Figure 23(a) shows the decay of maximum velocity defect normalized by the 
potential velocity at wake center U . The solid line represent a power law fit with 
U l JU^ - (£ 1 /d)' a90 . Therefore, the decay rate of maximum velocity defect in the 
negative pressure gradient curved channel is faster than the zero pressure gradient 
curved channel. Figure 23(b) shows the wake width b nondimensionalized by the 
diameter of the wake generating rod as a function of tyd with the solid line being the 
power law fit with bid ~ (Z^/df 57 . Therefore, the spreading rate of b in the negative 
pressure gradient curved wake is lower than that in the zero pressure gradient curved 
wake. 

Figure 24(a) shows the distribution of hypothetical potential velocity at the wake 
center nondimensionalized by the freestream velocity just upstream of the wake 
generating rod as a function of %,!d. Of course, the increasing hypothetical potential 
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Fig. 62 Transverse distribution of turbulent kinetic energy at different stream wise 
positions and under positive stream wise pressure gradient 
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velocity distribution along the wake centerline is due to the converging channel creating 

the required negative stream wise pressure gradient Figure 24(b) shows the pressure 

1 2 

coefficient C p (C p = (p -pJI—pV ^ ) at the wake center at various stream wise locations. 

The pressure coefficient calculated by the method explained in section 8.1.1, decreases 
with downstream distance, which confirms the negative pressure gradient Also, the 
momentum thickness ratio C w plotted in Fig. 25(a) decreases with the downstream 
location. The solid line in Fig. 25(a) is obtained from Eq. (8.8) and agrees with the 
values obtained from the velocity profile using numerical integration. Figure 25(b) 
shows the variation of shape factor H n with downstream distance from the wake 
generating cylinder. Similar to the zero pressure gradient straight wake, the shape factor 
approaches unity for far wakes. The rate at which the shape factor approaches unity is 
slightly higher for negative pressure gradient wake than that for zero pressure gradient 
wake. The solid line in Fig. 25(b) is obtained from the theoretical model represented 
by Eq. (8.10), and is in close agreement with the values obtained from the mean 

velocity data by numerical integration. Figure 26 shows the product U lm b decreasing 

with downstream location at various stream wise locations. The values of maximum 
velocity defect, wake width, potential velocity at wake center, and average velocity 
upstream of the cylinder at various downstream locations are given in Table 8 
(Appendix A). 

The wake development in the curved channel at the three stream wise pressure 
gradients can be characterized with respect to the following wake quantities. The decay 
of the velocity defect normalized by potential velocity at the wake center is fastest with 
negative pressure gradient and slowest with the positive pressure gradient Also, the 
growth of the wake width is fastest at the positive pressure gradient and slowest at the 
negative pressure gradient The momentum thickness ratio as a function of the 
stream wise distance remains approximately constant at zero pressure gradient increases 
at positive pressure gradient and decreases at negative pressure gradient The shape 
factor for all three pressure gradients decreases with streamwise distance and approaches 
to unity for far wakes. At a particular streamwise location, the shape factor has the 
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highest value at positive pressure gradient and the lowest value at negative pressure 
gradient The product U lm b as a function of streamwise location, while remaining 
approximately constant at zero pressure gradient increases at positive pressure gradient 
and decreases at negative pressure gradient 

8.3.2. Mean Velocity Distribution 

Figure 63 shows the plots of streamwise component of velocity as a function of the 
transverse distance for six streamwise locations. The velocity distributions for other 
streamwise locations are similar to the asymmetric distribution in Fig. 63 with a higher 
velocity at the positive side of The velocity distribution is asymmetric with respect 
to the wake center with a higher value on the positive side of As seen from Fig. 63, 
the wake velocity defect decreases and the wake width increases with downstream 
location. A close examination of the velocity data points outside the wake for two 
initial streamwise locations reveals that the increase in potential velocity is not uniform 
across the channel. This nonuniform increase in potential velocity across the channel, 
which is due to turning of the flow from a straight section to a curved channel, is 

dominant up to the streamwise location % t /d = 65. 

Figures 64 and 65 show the transverse distribution of the mean velocity defect in 
similarity coordinates. The solid line represents the results for straight wake by Eifler 

(1975) given by the function <p, , % = UJU lm = e^. The mean velocity defect 

profiles are symmetric and almost identical to the straight wake, except that they are 
slightly wider on the inner side of the wake. This small deviation from the straight 
wake data is clearer at higher streamwise locations and near the edges of the wake. In 
general, it may be considered that the effect of curvature on the mean velocity defect 
distribution is small. The high scatter of normalized velocity defect at higher 
downstream locations is because the maximum velocity defect is very small at these 

locations. 

Figures 66 and 67 show the plots of the transverse distribution of normalized 
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Fig. 63 Transverse distribution of stream wise component of velocity at different 
stream wise positions and under negative stream wise pressure gradient 
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Fig. 64 Transverse distribution of velocity defect at different streamwise positions 
and under negative streamwise pressure gradient, £,/rf = 34 to 185 
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Fig. 65 Transverse distribution of velocity defect at different streamwise positions 
and under negative streamwise pressure gradient, \ x !d = 215 to 388 
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Fig. 67 Transverse distributions of normal velocity at different streamwise positions 
and under negative streamwise pressure gradient, = 215 to 388 
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transverse velocity V / U lm for various stream wise locations. The transverse velocity 

distribution can be considered as a superposition of its distribution at zero pressure 
gradient straight wake on a normalized hypothetical potential distribution of transverse 

velocity. The profile of the hypothetical potential distribution of V will be dictated by 
the st ream wise pressure gradient and streamline curvature. The hypothetical potential 
distribution of V in the wake region is almost linear with a negative slope. 

8.33. Reynolds Stresses 

The transverse distributions of the normalized Reynolds stresses are shown in Figs. 
68-73. The Reynolds normal stresses are normalized with respect to its value at the 
wake center. Table 8 (Appendix A) gives the values of Reynolds normal stresses at the 
wake center at different downstream locations. The normalized Reynolds stress 
component in the stream wise direction is shown in Figs. 68-69. Comparing the straight 
wake data with the present results exhibits an asymmetric feature due to the curvature 
of the wake path. The radius of curvature of the wake centerline, shown in Fig. 22(b), 
is positive in the negative % 2 direction. For the measurements at all streamwise 
locations, the gradient of streamwise velocity in the positive radial direction is negative 
on the inner half of the wake. In contrast, the gradient of streamwise velocity in the 
positive radial direction is positive in the outer half of the wake. Therefore, the 
turbulent stresses should be higher on the inner half of the wake than the outer half of 
the wake. This is the case for all measurement locations except for the first two 
measurement locations. As explained for the zero pressure gradient curved wake, this 
may be due to the different streamwise pressure gradient existing at the inlet of the 
curved channel. The asymmetric nature of the streamwise component of Reynolds stress 
is qualitatively similar to the results obtained for the zero pressure gradient curved 
wake. In the negative pressure gradient case, the asymmetry of the streamwise 
component of Reynolds stress also increases with the downstream location. However, 
the asy mm etry of the streamwise component appears to be smaller than those in the zero 
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Fig. 69 Transverse distribution of stream wise component of Reynolds normal stress 
at different stream wise positions and under negative stream wise pressure gradient, 
L/d = 215 to 388 
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Fig. 71 Transverse distribution of normal component of Reynolds normal stress at 
different stream wise positions and under negative streamwise pressure gradient, 
^/d = 215 to 388 
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Fig. 72 Transverse distribution of Reynolds shear stress at different stream wise 
positions and under negative stream wise pressure gradient, = 34 to 185 
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Fig. 73 Transverse distribution of Reynolds shear stress at different streamwise 
positions and under negative streamwise pressure gradient, ^/d = 215 to 388 
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or positive pressure gradient cases. 

Figures 70 and 71 show the transverse distribution of the transverse component of 
Reynolds stresses. Similar to the streamwise component, the maximum value of the 
transverse component of Reynolds stress occurs at the inner half of the wake. The 
asymmetry of the transverse component of Reynolds stress is more than the streamwise 
component 

Figures 72 and 73 show plots of the transverse distribution of Reynolds shear stress 
at various streamwise locations. The Reynolds shear stress is nondimensionalized by the 
square of the maximum velocity defect The Reynolds shear stress distribution shows 
the strong asymmetry due to the curvature. The nature of curvature of the wake 
centerline and the gradient of streamwise velocity suggest a higher value of Reynolds 
shear stress on the inner half of the wake. This is observed at every streamwise 
location except the very first two measurement locations where, as previously explained, 
the pressure gradient dominates over the curvature effect As with the zero and positive 
pressure gradient curved wake, the Reynolds shear stress distribution in the outer half 
of the wake is closer to a self preservation state than the inner half of the wake. The 
Reynolds shear stress is not equal to zero either at the center or at the outside edges of 
the wake. 

Figure 74 shows an overall comparison of the maximum and minim um values of 
the Reynolds shear stress for all three pressure gradients as a function of the 
downstream distance. The symbol uv m stands for the maximum value of Reynolds 

shear stress at the outer half of the wake and minimum value of Reynolds shear stress 
at the inner half of the wake. The Reynolds shear stress, nondimensionalized with the 
square of the average velocity upstream of the wake generating cylinder, is shown in 
Fig. 74(a). Figure 74(b) shows the Reynolds shear stress normalized with the square 
of the maximum velocity defect The filled symbols represent the ma ximum value of 
Reynolds shear stress that occurs at the outer half of the wake. The open symbols 
represent the minimum value of Reynolds shear stress that occurs at the inner half of 
the wake. The absolute values of the maximum and minimum Reynolds shear stress 
should be the same for a straight wake. Figure 74 shows that the absolute value of the 
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Fig. 74 Streamwise variation of the maximum value of Reynolds shear stress at 
zero, positive, and negative streamwise pressure gradients 




134 


minimum Reynolds shear stress, occurring at the inner half of the wake, is higher than 
the maximum value of Reynolds shear stress occurring at the outer half of the wake, 
except for the two initial measurement locations. In the outer wake, seen in Fig. 74(a), 
the maximum value of Reynolds shear stress nondimensionalized with the square of 
average velocity has almost the same value for all three pressure gradients at a particular 
stream wise location. In the inner half of the wake, the absolute value of minimum 
Reynolds shear stress nondimensionalized with the square of average velocity, decreases 
with downstream location at the highest rate for negative pressure gradient and the 
lowest rate for positive pressure gradient Figure 74(b) shows that the absolute value 
of Reynolds shear stress normalized with the square of maximum velocity defect 
increases with downstream locations for all three pressure gradients. This is the case for 
both the inner and outer half of the wake, except for the outer half of the wake at 
positive and zero pressure gradients where the normalized Reynolds shear stress 
decreases slightly for the last five downstream locations. At a particular streamwise 
location, the absolute value of normalized shear stress has the highest value for negative 
pressure gradient and the lowest value for positive pressure gradient This is similar to 
Gartshore’s (1967) results for a straight wake subjected to adverse pressure gradient 
He observed a lower value of normalized Reynolds shear stress compared to the value 
of normalized Reynolds shear stress for a zero pressure gradient straight wake. 

8.3.4. Vortidty, Correlation Coefficient, and Turbulent Kinetic Energy 

Figure 75 shows the transverse distribution of normalized vorticity for streamwise 
locations from \ x ld = 34 to 244. The mean vorticity is normalized with U lm /b. Similar 

to the results of zero pressure gradient straight and curved wakes, the mean vorticity 
profiles for the present case are almost antisymmetric with respect to the wake center. 
Therefore, the effect of curvature and pressure gradient on mean vorticity profiles, 
shown in Fig. 75, can be considered small. The near zero value of vorticity in the 
region outside the wake suggests that the mean flow is mostly irrotational in that region. 
As mentioned in section 8.1.4, the calculation of vorticity involves the determination of 
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Fig. 75 Transverse distribution of mean vortidty at different streamwise positions 
and under negative streamwise pressure gradient 
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transverse gradient of velocity, which introduces scatter in the value of vorticity 
particularly at higher downstream locations. 

Figures 76 and 77 show the transverse distribution of the correlation coefficient at 
different streamwise locations. The distribution of correlation coefficient is asymmetric 
with higher absolute values at the inner half of the wake. The maximum absolute value 
of the correlation coefficient at the inner half of the wake remains constant from \ x id 
- 96 onwards whereas the maximum absolute value of the correlation coefficient at the 
outer half of the wake decreases with downstream distance. At a particular streamwise 
location, the value of correlation coefficient at the outer half of the wake for the 
negative pressure gradient is slightly higher than the value for zero pressure gradient 
curved wake. However, for the inner half of the wake, the absolute value of the 
correlation coefficient has a slightly higher value at zero pressure gradient than at the 
negative gradient especially at further downstream locations. 

Figure 78 shows the transverse distribution of turbulent kinetic energy normalized 
by the square of the mean velocity defect The turbulent kinetic energy distribution is 
asymmetric with respect to the wake center with higher value at the inner half of the 
wake. The normalized turbulent kinetic energy increases with downstream location. 
This is because the turbulent kinetic energy decays at a slower rate than that of the 
mean velocity defect At locations > 126, the value of normalized kinetic energy 
for negative pressure gradient wake is higher than die value for zero pressure gradient 
wake. 

8.4. Unsteady Wake Development at Zero Pressure Gradient 

The periodic wakes generated by the cylinders of the rotating wake generator were 
measured using a stationary X-hot-film probe. The wake generator had three circular 
cylinders of 1.984 mm dia. fixed at an angle of 12 (f to each other. The periodic wake 
development was studied for zero streamwise pressure gradient All the measurements 
were carried out for an average inlet velocity of about 20 m/s. Measurements were 
made at five angular positions from 0 = 0° to 40° in 10° intervals. At each angular 
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Fig. 76 Transverse distribution of correlation coefficient at different stream wise 
positions and under negative streamwise pressure gradient, % y ld = 34 to 185 
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Fig. 77 Transverse distribution of correlation coefficient at different stream wise 
positions and under negative stream wise pressure gradient, = 215 to 388 
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Fig. 78 Transverse distribution of turbulent kinetic energy at different streamwise 
positions and under negative streamwise pressure gradient 
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position, measurements were taken at four radial positions. The rotational speed of the 
wake generator was 300 rpm which corresponds to a Strouhal number, based on the 
wake passing frequency, equal to 0.0015. Also, measurements were carried out at four 
different rotational speeds at the inlet (0 = 0°) and at the radial location r-r, = 165 mm. 

Instantaneous velocity components obtained in probe coordinates are reduced by 
phase-averaging. The temporal distribution of phase-averaged velocity and Reynolds 
stress components in stationary frame of reference and probe coordinates are presented 
first It is followed by the distribution of velocity defect, transverse velocity, Reynolds 
stresses, and third-order correlations, all quantities being represented in the relative 
frame of reference and similarity coordinates. 

8.4.1. Temporal Distribution in Probe Coordinates and Stationary Frame of 
Reference 

Figure 79 shows the phase-averaged tangential component of velocity <V> as a 
function of time at an angular position 0 = 0°. The time scale 200 ms corresponds to 
the time duration for one revolution which is equal to three wake passing periods. The 
tangential velocity component is in absolute frame of reference and probe coordinates. 
Measurements were taken at four radial locations, at the center of the channel (r-r, = 
210 mm), 70 mm on both sides of the center of the channel (r-r, = 140 and 280 mm), 
and at a location (r-r, = 165 mm) where the primary wake happens to be exactly in the 
middle of two secondary wakes. It can be observed that three primary wakes (higher 
velocity defect) and three secondary wakes (smaller velocity defect) cross a stationary 
probe during one revolution of the wake generator. Primary wakes are generated during 
the upward motion of cylinders and secondary wakes are generated during the 
downward motion of the cylinders. The separation between primary and secondary 
wakes depends on measurement position (angular and radial), rotational speed, flow 
velocity, and number of cylinders in the wake generator. From Fig. 79, it appears that 
the primary and the secondary wake coincide at a radial location between 210 and 280 
mm The phase averaged velocity distribution outside the wake is constant and is equal 



r— i*i = 140 mm 


= 165 mm 


i = 210 mm 


\ = 280 mm 




i'MW 


Time (ms) 

Fig. 79 Phase-averaged velocity <V> in stationary (irame of reference for the 
periodic unsteady wake at zero streamwise pressure gradient, 0 = 0°, rpm = 300 
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to the potential velocity (velocity without the wake) at the measurement location. The 
potential velocity increases towards the convex side of the curved channel, hence the 
phase averaged tangential velocity distribution has higher value at radial locations nearer 
to the convex wall. Figures 80-83 shows the phase-averaged tangential velocity 
distribution for angular positions from 10° to 40°. Distinct primary and secondary wakes 
can be observed at radial locations except at the radial location r-r t - 210 mm. At r-r, 
= 210 mm, the primary and secondary wakes start to merge together. The secondary 
wakes are very small by the time they reach an angular position of 40°. 

For further analysis and representation in similarity coordinates, data from selected 
measurement locations are used. The locations where the primary wakes are situated 
in the middle of the secondary wakes are selected since they provide data with 
minimum interference between primary and secondary wakes. At these locations, the 
phase-averaged velocity components, Reynolds stresses, and turbulence intensity 
(7 m = (\J<Vt>/<V>)x 100) are plotted in Figs. 84-89. The tangential and radial 

component of velocities are plotted in Fig. 84 and 85, respectively. The transverse 
(radial) velocity distribution is very much different from the distribution obtained behind 
the stationary cylinder. This is due to the fact that the magnitude of transverse velocity 
is small which makes the distribution obtained in probe coordinate very much different 
from the one that would have been obtained in curvilinear coordinate system. As shown 
later, the distribution of transverse velocity in curvilinear coordinate system and relative 
frame of reference is similar to the distribution behind the stationary cylinder. The 
phase averaged turbulence intensity distribution is shown in Fig. 86. The turbulence 
intensity profiles are asymmetric with respect to the wake center. The maximum value 
of turbulence intensity which occurs at 0 = 0° is 1.69% and is close to the value 
obtained at the same angular position for the stationary cylinder, which was 7.93%. 
When the rotational speed of the wake generator was 600 rpm, the maximum value of 
phase-averaged turbulence intensity was 7.8% at r - r, = 165 mm and 0 = 0°. The 
phase-averaged turbulence intensity outside the wake is 1.1%, which is slightly lower 
than the time averaged turbulence intensity obtained in the case of zero pressure 
gradient steady wake. In the case of zero pressure gradient steady wake, the location 
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Fig. 80 Phase-averaged velocity <V> in stationary frame of reference for die 
periodic unsteady wake at zero stream wise pressure gradient, 0 = 10°, rpm = 300 






Time (ms) 

Fig. 81 Phase-averaged velocity <V> in stationary frame of reference for the 
periodic unsteady wake at zero stream wise pressure gradient, 0 = 20°, rpm = 300 
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Fig. 82 Phase-averaged velocity <V*> in stationary frame of reference for the 
periodic unsteady wake at zero stream wise pressure gradient, 0 = 30°, rpm = 300 
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Fig. 83 Phase-averaged velocity <V X > in stationary frame of reference for the 
periodic unsteady wake at zero stream wise pressure gradient, 9 = 40°, rpm = 300 







Fig. 85 Phase-averaged velocity <V^> in stationary frame of reference for the 
periodic unsteady wake at zero stream wise pressure gradient, rpm = 300 
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Fig. 86 Phase-averaged turbulence intensity <Tu> in stationary frame of reference 
for the periodic unsteady wake at zero stream wise pressure gradient, rpm = 300 








Time (ms) 

Fig. 87 Phase-averaged Reynolds normal stress <v x S> in stationary frame of 
reference for the periodic unsteady wake at zero stream wise pressure gradient, 
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Fig. 88 Phase-averaged Reynolds normal stress <v ; S in stationary frame of 
reference for the periodic unsteady wake at zero streamwise pressure gradient, 
rpm = 300 
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Fig. 89 Phase-averaged Reynolds shear stress <v x v 7 > in stationary frame of 
reference for the periodic unsteady wake at zero stream wise pressure gradient. 
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r - r, = 165 mm at 0 = 0° was well outside the wake. The phase-averaged distribution 
of Reynolds normal stresses are shown in Figs. 87 and 88. Reynolds normal stresses 
are also asymmetric with respect to the wake center. The phase-averaged Reynolds 
normal stresses outside the wake increase with downstream location. The secondary 
wake has a very small value of Reynolds normal stress by the time it reaches the 
angular position 0 = 40\ In fact, the magnitude of the radial component of Reynolds 
normal stress of the secondary wake at 0 = 40° is comparable to the magnitude of radial 
component of Reynolds normal stress outside the wake. Temporal distribution of the 
phase-averaged Reynolds shear stress is plotted in Fig. 89. Similar to the wake of 
stationary cylinder in the curved channel, the Reynolds shear stress distribution has 
pronounced asymmetry. The Reynolds shear stress for primary and secondary wakes, 
shown in Fig. 89, have opposite nature, i.e, in reference to Fig. 89 the left side of the 
wake has a negative <v,Vy> for primary wake and positive <v,v,> for secondary wake. 
Conversely, the right side of the wake has a positive <v,Vy> for primary wake and 
negative <v x Vy> for secondary wake. This is because the primary wakes are generated 
during the upward motion of the cylinder and the secondary wakes are generated during 
the downward motion of the cylinder. For primary wake, the side of the wake closer 
to the convex wall, having a negative <v*Vy>, crosses the stationary X-film sensor first 
In the case of secondary wake, the side of the wake closer to the concave wall, having 
a positive <v x v^>, crosses the stationary X-film sensor first 

Contour plots of phase-averaged turbulence intensity, tangential velocity, and 
Reynolds stresses are plotted in Figs. 90-94. The time scale t is nondimensionalized 
with respect to the wake passing period T (=66.66 ms). The tangential velocity is 
nondimensionalized by average velocity at the wake generator section (=20 m/s) and the 
Reynolds stresses are nondimensionalized by square of the average velocity at the wake 
generator section. The contours are plotted in the time-distance plane from the phase- 
averaged data obtained at five stream wise locations, keeping the probe at a fixed radial 
location. The upper contour plot at a radial location of r-r t = 140 mm shows distinct 
pr imar y and secondary wake region. In the lower plot, obtained at the middle of the 
channel, the primary and secondary wakes seem to be merging together from 
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Fig. 90 Contours of phase-averaged turbulence intensity <Tu> [%] for the periodic 
unsteady wake at zero pressure gradient (a) r-r, = 140 nun, (b) r-r, = 210 mm 
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Fig. 91 Contours of phase-averaged velocity <V>/V ta for die periodic unsteady 
wake at zero pressure gradient (a) r-r, = 140 mm, (b) r-r t = 210 mm 
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Fig. 92 Contours of phase-averaged Reynolds stress <v x 2 >A / iB 2 for the periodic 
unsteady wake at zero pressure gradient (a) r-r, = 140 mm, (b) r-r, = 210 mm 
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Fig. 94 Contours of phase-averaged Reynolds stress <y x vp>rv^ for the periodic 
unsteady wake at zero pressure gradient, (a) r-r, = 140 aim, (b) r-r, = 210 nun 
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downstream location 5° onwards. The isolated contours are due to lack of measurement 
locations. Otherwise, the contour plots exhibit the general behavior of the variation of 
velocity, Reynolds stresses and turbulence intensity. The phase-averaged turbulence 
intensity contours in Fig. 90(a) clearly demonstrate the qualitative nature of the primary 
and secondary wakes. At a particular stream wise position and the center of the wake, 
the primary wake has higher turbulence intensity than the secondary wake. Also, the 
primary wake has smaller width than the secondary wake. In Fig. 90(b), the primary 
an d secondary w ake s have almost merged together. Figure 91 shows the contours of 
phase-averaged velocity V*. The center region of the wake, where the velocity is 
minimum is shown by darker areas. The contours of phase-averaged Reynolds normal 
stresses, shown in Figs. 92 and 93, are similar to the contours of turbulence intensity. 
The phase-averaged Reynolds shear stress contours are given in Fig. 94. The dark 
region has a positive value of -cv^ and the white region have a negative value of 
<v x vp>. The center of the wake and the region outside the wake, have <v I v > > value close 
to zero. This can be clearly seen in Fig. 94(a) for primary wakes up to a stream wise 
position 9 = 20°. In order to get a clean picture, the contour plots of <v x v,> has to be 
plotted in an enlarged scale with high resolution, since there exist a steep transverse 
gradient of <v x v;> at the center of the wake. The contour plots shown in Figs. 90-94, 
of course, need data at more streamwise positions. However, the contours obtained with 
limited data, are useful in identifying the primary and secondary wakes and their 
propagation in the time-distance plane. 

8A2. Spatial Distribution in Curvilinear Coordinates and Relative Frame of 
Reference 

In order to compare with the stationary wake in zero pressure gradient curved 
channel, the temporal development of the periodic unsteady wake is transformed to a 
curvilinear spatial coordinate system relative to the moving cylinder. This 
transformation is done using the approach described in Section 7. The velocity defect, 
transverse velocity, Reynolds stresses, and third-order correlations are presented in 
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similar ity coordinates. The results are shown at five downstream locations (angular 
positions) at a constant rotational speed of 300 rpm. The radial location chosen at each 
angular position corresponds to the location where the primary wakes are in the middle 
of the secondary wakes. Also, the results are shown at four different rotational speeds 
for the measurements taken at the inlet (0 = 0°) and r-r, = 165 mm. 


8.4.2. 1. Mean Velocity Distribution 

The t rans verse distribution of mean velocity defect for different stream wise 
locations are plotted in Fig. 95(a). The mean velocity defect is normalized by its 
maximum value and the transverse distance by the wake width b. The solid line 
represents the function cp lr , cp lr = UJU lmr = where £ r = -Z- . The mean 

velocity defect profiles are symmetric and identical to the steady wake data in the zero 
pressure gradient curved channel. The profiles of mean velocity defect at different 
rotational speeds and at a constant measurement location are shown in Fig. 95(b). The 
mean velocity defect profiles exhibit complete similarity. 

The transverse distribution of normalized transverse velocity V r / U lmr for various 

stream wise locations are plotted in Fig. 96(a). Also, the normalized transverse velocity 
distribution at four different rotational speeds are shown in Fig. 96(b). The transverse 
distribution is qualitatively similar to the zero pressure gradient curved wake. 

8.4.2.2. Reynolds Stresses 

The transverse distribution of the nondimensionalized Reynolds stresses are shown 
in Figs. 97-99. The Reynolds normal stresses are normalized with respect to its value 
at the wake center. The values of Reynolds normal stresses at the wake center at 
different downstream locations are given in Table 9 (Appendix A). The normalized 
Reynolds stress component in the stream wise direction, are shown in Fig. 97. The 
results are found to be consistent with measurements obtained behind the stationary 



<U lr >/U lmr <pn = <u lr >/u 


161 


a 0.75 H 



-0.25 


- 2.0 


<Tr - ?2r/t> 


Fig. 95 Transverse distribution of velocity defect for the periodic unsteady wake, 
(a) rpm = 300, (b) 0 = 0° 
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Fig. 96 Transverse distribution of velocity <V> for the periodic unsteady wake, 
(a) rpm = 300, (b) 0 = 0° 
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cylinder in the zero pressure gradient curved channel. The results show asymmetry, 
with a higher value of Reynolds stress at the inner side than at the outer side of the 
wake. The effect of rotational speed on the normalized Reynolds stress distribution are 
small within the range of investigation. 

The normalized transverse component of Reynolds stresses are plotted in Fig. 98. 
Similar to the stream wise component, the maximum value of transverse component of 
Reynolds stress occurs at the inner half of the wake. The asymmetric feature of the 
transverse component of Reynolds stress is more than that of the stream wise component 

The transverse distribution of Reynolds shear stress at various stream wise locations 
are plotted in Fig. 99. The Reynolds shear stress is nondimensionalized by square of the 
maximum velocity defect The results are in general agreement with the results of the 
wake development behind a stationary cylinder in a curved channel. The Reynolds 
shear stress distribution shows the strong asymmetry due to the curvature. The value 
of Reynolds shear stress is higher on the inner half of the wake than that on the outer 
half. It may be observed that the effect of rotational speed on the nondimensional 
Reynolds stress distribution are small. The Reynolds shear stress at the center of the 
wake is not equal to zero. 

8.4.23. Higher Order Correlations 

The phase-averaged third-order correlations (triple products) of turbulent fluctuations 
in relative spatial coordinates are obtained from instantaneous velocity components. 
Four such correlations, <u 3 >, <v r 3 >, <w r 2 vp»,and <u r v?>, nondimensionalized with 
respect to the cube of maximum velocity defect U ]mr are presented in this section. The 
conservation equations for turbulent kinetic energy and Reynolds stresses contain terms 
involving the gradient of the above correlations. The experimental data on the 
distribution of these correlations can be helpful in modelling these terms in turbulence 
closure problems. 

The transverse distribution of phase-averaged triple product <u 3 >/U lmr 3 at different 
stre am wise locations are shown in Fig. 100(a). The triple product u 3 represents the 
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Fig. 97 Transverse distribution Reynolds normal stress <u r 2 > for the periodic 
unsteady wake, (a) rpm = 300, (b) 9 = 0° 
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Fig. 98 Transverse distribution Reynolds normal stress <v/> for the periodic 
unsteady wake, (a) rpm = 300, (b) 0 = 0° 
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Fig. 99 Transverse distribution of Reynolds shear stress for the periodic unsteady 
wake, (a) rpm = 300 , (b) 0 = 0° 
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transport of the component of turbulent kinetic energy u 2 , by the streamwise fluctuation 
u r across a unit area normal to the streamwise direction. The distribution <u 3 >/U Imr 3 
show asy mme try, with higher value in the inner side of the wake than that in the outer 
side. In comparison, the straight wake data obtained by Fabris (1983) behind a 
s tati onary cylinder is symmetric about the wake center with two negative minima (one 
on each side of the wake center) and a positive maximum at the wake center. Fig. 
100(b) shows the distribution of <u 3 >/U lmr 3 at four rotational speeds at a fixed 
measurement location. As seen in Fig. 100(b), the effect of rotational speed on the 
distribution of <u 3 >/U Jmr 3 is small. 

The transverse distribution of phase-averaged triple product <v 3 >IU,J at different 
streamwise locations are shown in Fig. 101(a). The triple product v r 3 represents the 
transport of the component of turbulent kinetic energy v r 2 , by the transverse fluctuation 
v r across a unit area normal to the transverse direction. The distribution <v 3 >/U lmr 3 
show asy mm etry, with higher value in the inner side of the wake than that in the outer 
side. The <v 3 >/U imr 3 distribution at four rotational speeds shown in Fig. 101(b) is 
qualitatively similar to the straight wake data obtained by Fabris (1983). 

Figures 102(a) and 102(b) show the transverse distribution of ku^/UjJ at 
different stre am wise positions and rotational speeds, respectively. The triple product u r 2 v r 
represents transport of the component of turbulent kinetic energy u r 2 , by the transverse 
fluctuation v r across a unit area normal to the transverse direction. The distribution of 
<U' 2 v^>/U lm i shown in Fig. 102(a) has higher values on the inner side of the wake than 
that on the outer side. The distribution shown in Fig. 102(b) is similar to the straight 
wake data obtained by Fabris (1983). 

Figures 103(a) and 103(b) show the transverse distribution of <u r v 2 >/U } J at 
different streamwise positions and rotational speeds, respectively. The correlation u r v 2 
represents the transport of the component of turbulent kinetic energy v r 2 , by the 
streamwise fluctuation w, across a unit area normal to the streamwise direction. The 
<u r v 2 >IU ln J distributions are similar to the distributions of <u 3 >IU Jm ^ shown in Figs. 
100(a) and 100(b), but with a lower negative minima. 



Fig. 100 Transverse distribution of third-order correlation <u/> for die periodic 
unsteady wake, (a) rpm =300, (b) 6 = 0° 





Fig. 101 Transverse distribution of third-order correlation <v/> for the periodic 
unsteady wake, (a) rpm = 300, (b) 0 = 0° 
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8A2.4. Wake Width, Maximum Velocity Defect, and Integral Parameters 

The wake width, maximum velocity defect, potential velocity at the wake center, 
and wake integral parameters are obtained at different angular positions. The angular 
and radial positions for data points presented in this section corresponds to the cases 
described in section 8.4.2 at 300 rpm. The values of maximum velocity defect, wake 
width, potential velocity at the wake center, and average velocity upstream of the 
cylinder for above positions are given in Table 9 (Appendix A). The maximum 
velocity defect and the wake width as a function of angular position are plotted in Figs. 
104(a) and 104(b), respectively. The hypothetical potential velocity at the wake center 
is shown in Fig. 105(a). The slightly increasing value of hypothetical velocity 
distribution does not imply that the wake is subjected to a negative pressure gradient. 
This is due to the fact that the radial locations at each angular position was chosen in 
such a way that the primary wakes were approximately in the middle of the secondary 
wakes. These radial locations happened to have a potential velocity increasing with 
downstream location. Figure 105(b) shows the product U tm b at different angular 
positions. The momentum thickness ratio and shape factor are plotted in Figs. 106(a) 
and 106(b), respectively. The increasing value of the product U lm b and the momentum 
thickness ratio can be due to the variation of the pressure along the radial direction. 
Since the wake generating cylinder is moving upwards, the trajectory of the wake 
centerline in relative frame of reference is moving towards the concave wall 
experiencing a higher pressure. 
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9. CONCLUSIONS 

9.1. Wake Development at Positive, Zero, and Negative Pressure Gradients 

The wake development behind a stationary cylinder in a curved channel at positive, 
zero, and negative streamwise pressure gradients was experimentally investigated. The 
results of the investigation revealed the following aspects of the influence of streamline 
curvature and streamwise pressure gradient on the development of wakes. 

1. The decay of velocity defect and the growth of wake width obtained for the zero 
pressure gradient curved wake are different from that of a zero pressure gradient 
straight wake. 

2. Comparison of the wake development in the curved channel between the three 
pressure gradients indicates that the decay of the velocity defect is fastest at 
negative pressure gradient and slowest at positive pressure gradient Conversely, 
the growth of the wake width is fastest at positive pressure gradient and slowest at 
negative pressure gradient 

3. The momentum thickness ratio as a function of the streamwise distance remains 
approximately constant at zero pressure gradient, increases at positive pressure 
gradient and decreases at negative pressure gradient The shape factor for all the 
three pressure gradients decreases with streamwise distance and approaches to unity 
for far wakes. At a particular streamwise location, the shape factor has the highest 
value at positive pressure gradient and the lowest value at negative pressure 
gradient The momentum thickness ratio and shape factor are well represented by 

Eq. (8.8) and (8.10), respectively. The product U lm b as a function of streamwise 

location while rem aining approximately constant at zero pressure gradient increases 
at positive pressure gradient and decreases at negative pressure gradient 

4. The mean velocity defect profiles in similarity coordinates are almost symmetric 
and follow the Gaussian function for straight wake data. However, small deviations 
are observed particularly at far downstream locations and at the edges of the wake 
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where the wake is slightly wider on the inner half. In general, it may be considered 
that the effect of curvature on mean velocity defect distribution is small. 

5. The Reynolds stress distributions in similarity coordinates are strongly influenced 
by the curvature. Pronounced asymmetric features are observed for all the three 
components of Reynolds stresses measured. The value of stream wise component 
of Reynolds stress at the inner half of the of the wake is higher than that of the 
outer half. The asymmetry in transverse component of Reynolds normal stress is 
higher than the asymmetry in the streamwise component of Reynolds normal stress. 
The distribution of transverse component has only one maximum which occurs at 
the inner side of the wake. The Reynolds shear stress distribution has higher values 
at the inner half than outer half. The asymmetry of Reynolds stress distribution 
increases with downstream location. At a particular streamwise location, the 
absolute value of Reynolds shear stress normalized with the square of the maximum 
velocity defect, has the highest value for negative pressure gradient and the lowest 
value for positive pressure gradient. 

9.2. Periodic Unsteady Wake Development at Zero Pressure Gradient 

The periodic unsteady wake development behind the cylinders of a rotating wake 
generator in a curved channel at zero streamwise pressure gradient is experimentally 
investigated employing phase-averaging techniques. The investigation has the following 
conclusions. 

1. The phase-averaging method clearly revealed the propagation of primary and 
secondary wakes through the curved channel. 

2. An approach is made to transform the temporal distribution of velocity and 
turbulence quantities obtained in stationary frame of reference into a spatial 
distribution in relative frame of reference. 

3. The velocity defect profiles in similarity coordinates are symmetric and follow the 
Gaussian function for straight wake data. 
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4. The distribution of phase-averaged Reynolds stresses are consistent with 
measurements obtained behind the stationary cylinder in the same curved channel. 
Pronounced asymmetric features are observed for all three components of Reynolds 
stresses measured. The value of the stream wise component of Reynolds stress at 
the inner half of the wake is higher than that of the outer half. The asymmetry in 
the transverse component of Reynolds normal stress is higher than the asymmetry 
in the stream wise component of Reynolds normal stress. The distribution of the 
transverse component has only one maximum, which occurs at the inner side of the 
wake. The Reynolds shear stress distribution has a higher value at the inner half 
than at the outer half and the asymmetry of Reynolds stress distribution increases 
with downstream location. The effect of the rotational speed of the wake generator 
on the Reynolds stress distribution is found to be small for the rotational speeds 
investigated. 

5. The profiles of phase-averaged third-order correlations shows asymmetry with 
higher values on the inner half of the wake than on the outer half. The effect of 
rotational speed of the wake generator on the distribution of third-order correlations 
is small for the rotational speeds investigated. 

All the investigations in this report are carried out at the same inlet turbulence. The 
free-stream turbulence, particularly high levels of tree-stream turbulence encountered in 
actual turbomachines, may influence the characteristics of the wake development The 
location of wake generating cylinder with respect to the curved test section may also be 
an infl uencing factor in the development of wake. Measurement of all components of 
Reynolds stress tensor using triple sensor hot-film probe can describe the turbulence 
structure in detail with a kinetic energy balance estimate. Therefore, more basic and 
systematic investigations are needed for a better understanding of the wake flows 
subjected to streamline curvature and stream wise pressure gradient 
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APPENDIX A 

TABLE OF REFERENCE QUANTITIES 


Table 6 Values of selected quantities of the steady wake at zero stream wise 

pressure gradient 


e 

(0) 

KM 

V* 

(ra/s) 

b 

(mm) 

K 

(m/s) 

“o 

(m 2 /s 2 ) 

7 

(m 2 /s 2 ) 

y* 

(m/s) 

0 

34 

2.598 

7.44 

20.02 

1.862 

2.004 

19.31 

5 

65 

1.734 

11.27 

20.07 

0.880 

0.727 

19.29 

10 

96 

1.392 

13.78 

20.12 

0.629 

0.476 

19.30 

15 

126 

1.217 

16.76 

20.51 

0.531 

0.401 

19.35 

20 

157 

1.084 

19.88 

20.57 

0.470 

0.357 

19.32 

25 

187 

0.905 

22.88 

20.60 

0.419 

0.343 

19.32 

30 

218 

0.846 

26.13 

20.38 

0.375 

0.322 

19.33 

35 

248 

0.686 

27.34 

18.77 

0.300 

0.280 

19.37 I 

40 

278 

0.611 

33.88 

19.11 

0.273 

0.299 

19.34 

45 

309 

0.540 

36.92 

19.11 

0.263 

0.289 

19.33 

50 

339 

0.494 

33.96 

19.49 

0.253 

0.305 

19.32 

55 

370 

0.491 

39.87 

20.03 

0.245 

0.326 

19.33 

60 

400 

0.469 

45.91 

19.59 

0.225 

0.326 

19.31 

65 

431 

0.445 

49.21 

20.26 

0.229 

0.350 

19.37 

70 

461 

0.453 

47.70 

20.31 

0.218 

0.352 

19.39 




8 


f l 



e 

(o) 


u lm 

(m/s) 

b 

(mm) 

(m/s) 

~7 

(m 2 /s 2 ) 


v* 

(m/s) 

0 

34 

2.793 

7.06 

19.27 

1.833 

1.965 

19.10 

5 

65 

1.952 

10.56 

19.17 

0.876 

0.704 

19.10 

10 

96 

1.550 

13.30 

18.85 

0.631 

0.444 

19.09 

15 

126 

1.311 

16.13 

18.00 

0.510 

0.333 

19.20 

20 

157 

1.216 

18.97 

17.76 

0.470 

0.294 

19.07 

25 

188 

1.075 

22.77 

17.68 

0.446 

0.279 

19.06 

30 

219 

0.954 

25.00 

17.37 

0.419 

0.262 

19.08 

35 

250 

0.898 

29.76 

16.94 

0.380 

0.258 

18.94 

40 

282 

0.780 

33.17 

17.02 

0.374 

0.267 

18.92 

45 

313 

0.778 

35.28 

16.63 

0.361 

0.273 

19.07 

50 

345 

0.716 

41.37 

16.33 

0.346 

0.285 

18.99 

55 

377 

0.698 

43.03 

16.34 

0.334 

0.297 

18.99 

60 

408 

0.649 

48.58 

15.61 

0.303 

0.288 

19.08 

65 

440 

0.609 

51.27 

15.66 

0.297 

0.301 

19.08 

70 

474 

0.578 

56.68 

15.64 

0.279 

0.303 

19.09 
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6 

(o) 


v lm 

(m/s) 

b 

(mm) 

u m 

(m/s) 

7 

(m 2 /s 2 ) 

0 

34 

2.710 

6.92 

20.23 

1.777 

5 

65 

1.826 

10.76 

20.78 

0.846 

10 

96 

1.447 

12.15 

21.44 

0.573 

15 

126 

1.173 

14.38 

22.15 

0.458 

20 

156 

0.946 

17.16 

22.82 

0.391 

25 

185 

0.795 

18.22 

23.56 

0.338 

30 

215 

0.733 

20.79 

24.19 

0.300 

35 

244 

0.648 

22.40 

23.78 

0.248 

40 

273 

0.588 

24.04 

24.63 

0.227 

45 

302 

0.538 

24.18 

25.37 

0.210 

50 

331 

0.522 

24.22 

26.06 

0.199 

55 

360 

0.471 

26.30 

26.65 

0.183 

60 

388 

0.435 

28.78 

27.29 

0.180 


1.924 


0.720 


0.469 


0.377 


0.335 


0.317 


0.300 


0.278 


0.283 


0.292 


0.300 


0.304 


0.316 


(m/s) 


19.36 


19.35 


19.36 


19.34 


19.33 


19.34 


19.34 


19.41 


19.40 


19.41 


19.43 


19.44 


19.44 
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APPENDIX B 


PROGRAMS FOR DATA ACQUISITION, REDUCTION, AND ANALYSIS 


The programs listed in this appendix contain several calls to assembly and 
FORTRAN language subroutines. All of the assembly and some of the FORTRAN 
subroutines are not listed in this appendix. However, they are available from the 
principal investigator. 


B.l. Calibration Programs 


★★★★★★★★★★★★★★★★★★★★★★a** ★*★★**★★★**★★*★★★*★★*★****★*★*★★*★*★**** ***★*★★* 

1. Program to calibrate pressure transducers, thermocouples etc. 
*★★**★* ****★★★★*★★★★★*★★★★*★**★★★ ★★★****★*★*★★***★★**★*★★★★*★★★★★ ★**★★*** 

* This program calibrates the output of any channel of RC Electronic A/D 

* board against a known quantity applied to the sensor connected to the 

* corresponding A/D channel to achieve the highest possible accuracy of 

* the system. 

* The program samples data from all 1,2, 4, 8, or 16 channels, and displays 

* the voltages, which are then compared to known inputs like voltage, 

* pressure, temperature etc. To run this program, you must have a 

* reliable voltmeter, pressure calibrator, thermocouple calibrator etc. 

* An output file 'ca!16.cal' is generated, which gives the coefficients 

* of the best (least-squares) polynomial fit for the channel. The order 

* of the polynomial is given by npol and the number of coefficients by 

* npol+1. A second output file 'ca!16.out' is also generated, which 

* simply keeps a record of the known input values (read from voltmeter, 

* pressure calibrator, thermocouple calibrator) and values obtained from 

* sampling. Output file 'call6.cal' is designed to be used by copying 

* it to the calibration coefficient files like 'pres. cal' which are used 

* by actual data acquisition programs like ADRDTR4.F0R, AUT04.F0R etc. 

* The sampling is done in 1-shot mode. This is the easiest way to 

* configure the RC ISC-16, which is used to fill one data buffer (<32K) 

* and then stop. This is also the best way to take short {< 32K) , fast 

* (up to . 5MHz aggregate sample rate ) bursts of data. Data more than 

* 32K is sampled in discontinuous blocks with each block of 32K size. 

* External assembly routines: ADOS, ADIS, RD1S - all in AD10LIB .LIB 

* External fortran routines: 

* LSFIT (subroutine for finding the coefficients of a polynomial of any 

* order by least-squares fit), IVER 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a-****-** 

program CAL 

parame ter (max =3 3000) 

integer *4 npol , ks , inc , index, nsapch 

integer*2 idat(raax) 

integer*4 nch, itime, ierr, size, isize, delay, idisk 

real *4 avg (50,16), sumsq ( 16) , rms (16) 

real *4 rmst ( 16 ) , avgt (50,16) ,x(50) ,y(50) 

real*8 coeff (20) ,a(20) ,var(20) 

character*32 file 

logical*! IVER, Idisk, lscr 
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data idisk/O/ 

data iout,iout3 / 10,12/ 

c Read the ADC input parameters 

write ( 6, *) 'Select the A/D channel number to calibrate?' 

read( *, *) ichn 

nch=l 

if (ichn.gt. 1) nch=2 
if (ichn.gt. 2) nch=4 
if (ichn.gt. 4) nch=8 
if (ichn.gt. 8) nch=16 
write(* f 110) 
read ( * , *) itime 
write ( * , 115) 
read(*, *) delay 
write ( *, 120) 
read(*, *) size 
isize=2** (size+8) 
write <*,*) 'Number of blocks' 
read(*,*) nbl 
nsapch=isize/nch 
open (unit=iout , f ile= ' cal . out ' ) 
c Write data to sreen or disk? 
ldisk= . false . 
lscr= . false . 

i f ( IVER ( ' write to disk')) ldisk=.true. 
if (IVER( ' Oprint array?')) lscr=.true. 
inc=0 

200 continue 

inc = inc + 1 
write(*, 14) 
read(*,*) y(inc) 
write (iout, *) y (inc) 
write (*, * ) ' ' 

do 250 j =1 , nch 

Avgt(inc,j) = 0.0 
RMSt(j) = 0.0 
250 continue 

do 800 iav = l,nbl 

c Set up the RC board, and go on keyboard prompt 
call ADOS (nch, itime, size) 
call ADIS (delay) 
c Read idat 

call RD1S ( idat, isize, ierr, idisk) 
c Inspect ierr flag 

write ( * , 130) ierr 
c Write array to screen? 

if(lscr) write ( * , 160 ) ( idat ( i ), i=l, isize) 
c Option to save data on disk 
if (Idisk) then 
40 write(*,180) 

read( *, 140 ) file 

open (unit =2 , file=file, form= ' binary' , err =40 , status- ' unknown ' ) 
write (2) isize, nch, itime, delay 
write (2) (idat(i) , i=l, isize) 
close (unit=2) 
write(*, *) 'ok' 
endif 

write(6, 15) iav, isize 

c Now calculate averages and RMS fluctuation levels 
do 300 j=l,nch 
sumsq(j) = 0. 
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300 Avg ( inc , j ) = 0 . 

do 450 i=l,nsapch 
do 400 j=l,nch 

index = (i-l)*nch + j 

- Avg (inc, j ) =avg(inc, j ) + ( idat (index) -2048 . ) * .004882812 
400 continue 

450 continue 

do 500 j=l,nch 

Avg(inc,j) = avg ( inc, j ) /r.sapch 

avgt ( inc , jT = avgt ( inc , j ) avg ( inc , j ) 

500 continue 
c rms calculations 
c 

do 600 i=l,nsapch 
do 600 j=l,nch 

index = (i-l)*nch + j 

del=avg (inc, j ) - (float ( idat (index) ) -2048 . 0) * . 004882812 
Sumsq(j) = sumsq(j) + del*del 
600 continue 

do 700 j=l,nch 

rms(j) = sqrt (suinsq( j ) /nsapch) 
rmst(j) = rmst(j) + rms(j) 

700 continue 
800 continue 

write(*,*) # sampling has finished' 
do 850 j =1 , nch 

avg ( inc, j) = avgt ( inc, j ) /nbl 
rms(j) = rmst(j)/nbl 
850 continue 

c Now write the averaged results to screen and to disk, 
c 

write(*,22) 
do 900 ich=l,nch 

if (avg (inc, ich) .ne.0) then 

write (*,23) ich, Avg (inc, ich) , rms (ich) , 

$ rms ( ich) /avg ( inc, ich) *100 . 

write(iout,23) ich,Avg(inc, ich) ,rms(ich) , 

$ rms ( ich) /avg ( inc, ich) *100 . 

else 

write (*,23) ich, Avg (inc, ich) , rms (ich) 
write (iout, 23) ich, avg (inc, ich) , rms (ich) 
endif 

900 continue 

write ( *, 13 ) inc 
write ( *, 2) 
read(*,*) isamp 
if (isamp.eq. 0) then 
if (inc. It. 3) then 

write (*,*) 'The no. of data only', inc 
write(*,*) 'Hence this session is terminated. Bye ' 
go to 2000 
end if 
go to 1000 
end if 

Now loop back to do more sampling at a new voltage. 

go to 200 
1000 continue 

c Sampling is now complete for several tests, 
c Now open the calibration output file call6.cal and perform 
c the least squares fits. 

open (unit =iout3 , f ile= 'cal 16 .CAL' ) 
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write (6 r *) 'Enter the order of the polynomial?' 
read (5,*) npol 

write (*,*) ' Performing least squares fits 

do 1050 i=l , inc 
x(i)=avg(i, ichn) 

1050 continue 

call LSFIT ( inc , x, y , npol , a , var , coef f , ks ) 

write (6, *) (coef f (ipol) , ipol=l, npol+1) 

write ( iout3 , *) (coeff (ipol) ,_ipol=l , npol+1 ) 

write ( iout3 , * ) 'calibration constants? chf ' , ichn 

do i=l,inc 

write (iout3, *) x(i) ,y(i) 
end do 

close (unit=iout3) 

2000 continue 

close (unit=iout) 


c 

c 


Formats 


2 

5 

13 


14 

15 
22 


format (' Enter your response here : ') 
format!/,' Exiting program CAL. FOR') 

You have now tested', i3 , ' points, 

(A minimum of ten points are recommended', 
for a good calibration)',//. 

Do you want to test at another point? : ' , 

(0) no ',/, 

(1) yes') 

Enter the dependent variable like voltage, 
etc.?' ) 


format (//, 

$ 

$ 

$ 

$ 5x, 

$ 5x, 

format ( // , 
$temperature 


/, 


pressure. 


23 

110 

115 

120 


130 

140 

160 

180 


$ 

$ 


format (' Sampled block number i3 , 2x, i5, ' size') 
format(//,' Averaged results of A/D conversions 


/, 


format ( 
format ( 
format ( 
format ( 

$' 0 
$' 3 
$' 6 
format ( 
format (a) 
format ( 16i5) 
format!/' disk 
end 


5x, ' Channel ', 6x, 'X (DC) 
8x, 'X (RMS) ' , 5x, 'RMS (%) 
' ,7x, i3,3F14.5) 
itime [usee, 1-65384] :'\) 
delay [usee, 0-65535] :'\) 


) 


- select 
256'/' 
2048'/' 4 
16384'/' 7 
ierr = ' , il) 


buffer 

1 


size -- 
512 
4096 
32768 


'/' SIZE 
/' 2 
/' 5 

/ ' enter 


BUFFER' / 
1024'/ 
8192'/ 
SIZE: '\) 


filename: '\) 


******** ********* ★★★**★★**★*★★*★★*★***★**★★★★+★** ************ ************ 

2. Program to obtain calibration coefficient* of single sensor hot- 
wire/filffl probe 

************************************************************************* 


* This program analyze the data stored during single sensor hot- 

* film/hot-wire calibration. The calibration is done using the program 

* ADRDTR. The hot-wire is placed with proper orientation in low 

* turbulence, uniform velocity jet of the calibration nozzle. The hot- 

* wire output from the signal conditioner is taken against a reference 

* velocity obtained from the differential pressure across the nozzle. 

* A fourth order polynomial curve fitting is used to get the calibration 


* coefficients. _ _ _ 

* External assembly routines: RDFILS, RDBLK, RDFILC - all in 

AD10LIB .LIB _ . n 

* Fortran routines: LSFIT (curve fitting using least square polynomial 


* fit), IVER 
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* FILES : master. fil: contains the path of the root.fil 

* root .fil: input file containing the names of the 

* names of document file, data file and output file. 

* .dat -data files (input) 

* .doc -document files (input) 

* .out - output files. (output) 

* CTA.CAL : The output file containing the calibration constant and 

* the average temperature during the calibration. 

* CTA.OUT : The output file generated by this program contains 

* hot-wire output , temperature compensated output and the velocity. 

* Signal connection: 

* Chi : Hotwire Ch3 : Thermocouple 

* Ch2 : Hotwire Ch4 : Pressure transducer 

*★★★*★★★★★★★★★★***★★★★★★*★*★*★**★★************************************* 

program CTAN 

par ame t er ( max=3 3000) 
integer*2 idat(max) 

integer*4 n, nch, itime, size, isize, delay 

integer*4 ierr , nsapch 

integer*4 npol , ks , inc 

real*8 coeff (15) ,a(40) ,var (15) 

real *4 sumsq{16) ,rms(16) ,rmst(16) ,avg(16) ,avgt(16) 
real*4 pc (5) , tc(5) ,vel(300) ,hw(300) , t (300) , hwc (300) 
character*25 fili, filo, fild, filp 
logical*l TVER, lscr 
data afac/1.0019/ 
c Write data to sreen or disk? 
lscr= . false . 

if (IVER( ' Opr in t array?')) lscr=.true. 

Write ( 6, *) 'Sensor temperature in "C"?' 
read (5,*) tsens 

c open the file containing pressure calibration coefficients, 
open (unit =8, f ile= 'pres . cal ' ) 
read (8, *) (pc(i) , 1=1,3) 
close (8) 

c open the file containing calibration coefficients for thermocouple. 
open(unit=8, file= ' temp .cal ' ) 
read (8 , * ) ( tc ( i) , 1*1,3) 
close (8) 
c 

open(unit=8, f ile='master . f il ' ) 

read(8,*) ntest 

read(8, ' (a25) ' ) filp 

close(8) 

tsavg=0 . 0 

inc=0 

c open the file containing the filenames and number of files 
10 open(unit=8, file=f ilp) 
read (8,*)nf 
inc=inc+l 
do 15 i=l,inc 

15 read(8, 175) fili, fild, filo 
close(8) 

open (unit=8, f ile=f ild) 
read ( 8 , * ) pstat , patm 
close (8) 

c open the ADC data file and read the header 

call RDFILS ( f ili , n, nch, itime, delay, ierr) 
write ( * , 110 )n, nch, itime, delay, ierr 
c select a block size 
if(inc.eq.l) then 
write(*, 120) 
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read{ * , *) size 
endif 

isize=2** ( size+8 ) 
nblock=n/ isize 
nsapch=isize/nch 

write ( 6 ,*)' Reading the data file: 7 ,fili 
write ( * , 130 ) nblock, isize 
do 250 j=l,nch 
Avgt ( j ) = 0.0 
RMSt(j) = 0.0 
250 continue 

do 800 nb = l,nblock 

call RDBLK ( idat, nb, isize, ierr) 
c Inspect IERR flag 

write ( * , 150 ) ierr 
c Write array to screen? 

write ( 6 , 80 ) nb, isize 
if(lscr) then 

if(IVER(' Show this block?')) write (6, 170 )( idat ( i) , i=l, isize) 
endif 

c Now calculate averages and RMS fluctuation levels 
do 300 j=l,nch 
Sumsq(j) =0. 

300 Avg(j) = 0. 

do 450 i=l , nsapch 
do 400 j=l,nch 

index = (i-l)*nch + j 

Avg ( j ) =Avg ( j ) + (idat { index) -2048 . ) * .004882812 
400 continue 

450 continue 

do 500 j=l,nch 

Avg(j) = Avg (j ) /nsapch 

wr ite( 6, *) 'channel#' , j,' Average value = ' ,Avg(;j) 

Avgt ( j ) = Avgt(j) + Avg(j) 

500 continue 
c RMS calculations 

c 

do 600 i=l, nsapch 
do 600 j =1 , nch 

index = (i-D^nch + j 

De 1 = Avg C j ) - (FLOAT ( idat ( index) ) -2048 . 0 ) * . 004882812 
Sumsq(j) = Sumsq(j) + Del*Del 
600 continue 

do 700 j=l,nch 

RMS ( j ) = SQRT(Sumsq(j ) /nsapch) 

write(6, *) 'channel#' , j,' RMS value= ',RMS(j) 

RMSt(j) = RMSt(j) + RMS(j) 

700 continue 
800 continue 

call RDFILC ( ierr ) 
do 850 j=l,nch 

Avg ( j ) = Avgt ( j ) /nblock 
RMS ( j ) = RMSt(j) /nblock 
850 continue 

c Now write the averaged results to screen and to disk. 
temp=avg (3 ) **2 . 0*tc (3 ) +avg(3) *tc(2) +tc(l) 
pavg= ( avg ( 4 ) * *2 . 0 *pc ( 3 ) +avg(4) *pc (2) +pc(l) ) *25.4*9 .81 
rho= (patm*13 . 6+pstat) * . 0348432/ (temp+273 . 15) 
if (pavg.lt. 0.0) pavg=0.0 
velpn=sqrt (2 . 0*pavg/rho) *afac 
tstat=temp 
tsavg=tsavg+tstat 
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tavg=tsavg/ inc 
write ( 6 , * ) ' rho= ' , rho 
write{*, 85) 

c Write to the output file 
open (uni t=9, file=f ilo) 
do 900 ich=l,nch 

write (6,90) ich, Avg ( ich) , RMS ( ich) 
write (9, 90) ich, Avg ( ich) , RMS (ich) 

900 continue 

write (6, 95)avg(l) ,velpn, temp, tstat 

write (9, 95 ) avg (1) ,velpn, temp, tstat 

close(9) 

t (inc) =tstat 

hw ( inc ) =avg ( 1 ) 

vel (inc) =velpn 

c Repeat processing the next file ? 
if (inc.lt.nf) go to 10 

c Temperature compensation of hotwire output for variation in fluid 
c temperature 

do 910 j=l, nf 

910 hwc ( j ) =hw( j ) *sqrt ( (tsens-tavg) / (tsens -t(j))) 
call CLS 

c Write the results of velocity Vs hot-wire output 
open (unit =9, f ile= 'CTA.OUT' ) 

write ( 6 , * ) ' VOLTAGE T . C . VOLTAGE VELOCITY ' 

do 920 j=l,nf 

write (9, *) hw( j ) ,hwc ( j ) , vel ( j ) 

920 write ( 6, *) hw( j ) ,hwc ( j ) , vel ( j ) 
c Performing the least square fit for a polynomial of order 4 
npol=4 

call LSFIT ( inc , hwc , ve 1 , npo 1 , a , var , coef f , ks ) 

Write ( 6, *) 'CALIBRATION CONSTANTS AT TEMPERATURE tavg 

write (6, *) (coeff (ipol) , ipol=l, npol+1) 
c Write calibration coefficients to CAL. OUT 
open(unit=9, f ile='CTA.CAL ' ) 
write (9, *) (coeff (ipol) , ipol=l, npo 1+1) 
write (9,*) 'Average temperature^ , tavg 
close(9) 
c Formats 

80 format (' Calculated block number ' , i3 , 2x, i5, ' size') 

85 format ( // , ' Averaged results of A/D conversions 
$ 5x, ' Channel', 6x, 'X (DC)', 

$ 8x, 'X (RMS) ' ) 

90 format(' ' , 7x, i3 , 2F14 . 5) 

95 format {' hotwire voltage ',10x, 'velocity ' , lOx, 'total temp.' 

$, ' static temp '/,fl0.4,15x,fl0.4, 12x, f 8 .3 , lOx, f 8 . 3 ) 

100 format(/' ADC filename:'\) 

101 format(a) 

110 format (' n:',i6,' nch:',i2,' itime:',i5,' delay i5, ' ierr' , i2) 
120 format (' — select block size — '/' SIZE BUFFER'/ 

*' 0 256'/' 1 512'/' 2 1024'/ 

*' 3 2048'/' 4 4096'/' 5 8192'/ 

*' 6 16384'/' 7 32768'/' enter SIZE :' \ ) 

130 format (' There are ',i3,' blocks of ',i5,' words..') 

140 format (/' read block#: '\) 

150 format (' ierr:',i2) 

170 format(16i5) 

175 format (a, 2x, a, 2x, a) 
end 
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★ ★★★★★★★★★★★★★★★★★★★★★■A 1 ********** 


★★★★*★*★★*★**★★★**★★★*★**★ ★★★**★★*★***** 


3. Program to calibrate X-hot- film/wire probe 

**★**★★★*********★★★*★** *************************** ********************** 

* This program calibrate a cross wire/film probe. Velocity calibration 

* of both wires and simultaneous angle calibration are done one after 

* another. The probe has to rotated for desired flow angle. 

* Program write blocks of data continuously to disk. The file size is 

* is limited only by disk space, although here MAXBLOCK = 32 to give 

* a 3MB upper limit. Select a block size between 512 and 32768 words. 


★ 

★ 

★ * 


Assembly routines called: ADFILS, ADHALT, ADC0,ADC1, RDBUF, ADFILC 
FORTRAN routines: IVER, FGEN, SRDDSKB, RESULT 
FILES: .dat, .fil, -doc -output 

****★★**★*★*★** ******************************************** ************ 


program XCAL 

integer*4 n, nch, itime, delay, size, isize 
parameter (irtax=32768, maxblock=32 ) 
integer*2 idat(max), ierr (maxblock) 
integer*4 idisk, jerr 
logical*! IVER, ishow, iangle, itype 
character*80 sent 

character*25 fild(300 ) , fili(300) , filo(300) , filp, filnam 
character*25 root 
data idisk/1/ 

write {6, *) 'Enter the root file name (without extension)?' 

read( * , 500 ) root 

ntest=0 

in=l 

do while (root (in: in) .ne. ' ') 

f ilp (in : in) =root (in : in) 
in=in+l 
end do 

f ilp ( in: in+3 ) = ' .fil' 

c Open the master. fil and write the file name 
open (unit =9 , file= 'master . f il ' ) 
write (9, ' (a) ' ) f ilp 
close (9) 

c Read the ADC input parameter 
write (*, 100) 
read( *, *) nch 
write (*, 110) 
read ( * , *) itime 
write ( *, 115 ) 
read(*, *) delay 
write (*, 120) 
read ( * , *) size 
isize=2** (size+8) 
write (*, 130) 
read ( * , * ) nblock 
n=isize*nblock 
10 call CLS 

itype=. true. 

Write (6, 600) 

c iw =1 (velocity calibration wire 1), 2 (velocity calibration wire 2), 

c iw = 3 (angle calibration for both wires) 

if ( IVER ( ' OVelocity Calibration?')) then 
iangle= . false . 
write (6, *) 'Wire 1 or 2?' 
read (5, *) iw 
else 

if ( IVER ( ' OAngle Calibration ?')) iangle= . true . 
iw=3 
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endif 

inc=0 

ishow= . false . 

if <IVER{ 'OShow data or results?')) ishow=.true. 
c Generate the file names for .dat, .doc and .out files 
40 ntest=ntest+l 

call FGEN( root, ntest, fili,fild,filo) 
call CLS 

f ilnam=f ili (ntest) 
write(6,300) filnam 
pause 'Please [ENTER] to start' 
c Open data file, write file header, initialize RC board 
call ADFILS ( f i lnam, n , nch, itime, delay, jerr) 
call ADHALTO 

call ADC0(nch, itime, size) 
write (*, *) 'sampling data..' 
call ADC1 (delay) 

c Read NBLOCK blocks of data from RC A/D and write to file 
do i=l,nblock 

call RDBUF(idat, isize, ierr(i), idisk) 
enddo 

c Stop the ADCs, close the data file 
call ADHALTO 
call ADFILC (jerr) 

c Inspect I ERR array for error flags 

write (*, 140) (i, ierr (i) , i=l,nblock) 

C Input test parameters 
If(itype) then 

write (6,*)' Static pressure in “mm" of water?' 
read (5,*) PSTAT 

write(6, *) ' Barometric pressure in "mm" of Hg ?' 
read ( 5 , * ) patm 

write ( 6, *) 'Any other parameters to document? (max. one line)' 
read(5, ' (a80) ' ) sent 
itype= . false . 
endif 

if(iangle) then 

Write(6, *) 'Write Flow Angle ALPHA with respect to wire 1' 
read (5, *) alpha 
else 

if (iw.eq. 1) alpha=45 . 
if (iw.eq. 2) alpha=-45 . 
endif 

c Get time and date 

call GETTIM(ihr, imin, isec, ilOO) 
call GETDAT ( iyr , imon , iday ) 
c Document this test 

open (uni t=8, file=fi Id (ntest) ) 
write (8, *)pstat, patm, alpha, iw 
write (8, *) f ili (ntest) 
write (8, *) sent 

write(8, 450) imon, iday, ihr, imin 
close (8) 

c Update . fil; later used by data analysis software 
open(unit=8, file=filp) 
write (8, *) ntest 
do j=l, ntest 

write (8,400)fili(j) ,fild(j) ,filo(j) 
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enddo 
close (8) 

c reads data from disk and show results? 
if(ishow) then 

if ( IVER ( ' Oread data from disk?')) Call SRDDSKB ( f ili) 
inc=inc+l 

if { IVER ( ' OShow results?')) Call RESULT (inc). 
endif 

c Repeat acquiring new data for different velocity or angle? 
if (IVER ( # OContinue?' ) ) 

$goto 40 

c Move to new location 

if (IVER ( 'OContinue Velocity or Angle Calibration ?'))goto 10 
write {6, *) 'terminating the program at your request' 
stop 'bye' 

c formats 

100 format (/' nch [1, 2, 4, 8, 16] : ' \ ) 

110 format!' itime [usee, 1-65384] :'\) 

115 format(' delay [usee, 0-65535] :'\) 

120 f ormat ( ' -- select buffer size SIZE BUFFER'/ 

*' o 256'/' 1 512'/' 2 1024'/ 

*' 3 2048'/' 4 4096'/' 5 8192'/ 

*' 6 16384'/' 7 32768'/' enter SIZE:'\) 

130 format (' nblock:'\) 

140 format (' block# ' , i3 , ' ierr = \il) 

280 format(a30) 

300 format! ' Complete sampled data will be stored in ',a) 

400 format (a, 2x, a, 2x, a) 

450 format (' DATE: M2, ' / ' , i2 f 5x, 'TIME: ',i2,'-',i2) 

500 format!a) , 

600 format ( ' X-WIRE CALIBRATION.'//' This has two steps. Velocity Cali 
$bration of each wires and Angle Calibration.'//' During Velocity 
$calibration keep the wire normal to flow at all velocities. '/ / Ang 
$le calibration is done by changing the flow angle by turning the 
$probe . ' ) 
end 


★★★★★★★★★★★★★★it************************************************ ********** 

4. Program to obtain the velocity calibration coefficients of each of the 
sensor of the X-probe from a calibration using XCAL.FOR and keeping the 


sensor normal to flow. 

***************************************** ************* 


★** * * ★*★★*★*★*****★ 


★ ★ 


* This program process the data files generated during cross wire * 
calibration using XCAL.FOR. This generates an output file XCALP.OUT 

* containing the angle , voltage output and velocity. 

* The velocity calibration coefficients will be stored in PX1.CAL and 

* PX2.CAL for sensor 1 and 2 respectively. 

* The X-wire is calibrated in a in a low turbulence, uniform velocity 

* profile. The hot-wire output from the signal conditioner is taken 

* against a reference velocity obtained from the pressure drop across 

* the nozzle. / „ ^ _ . 

* A fourth order polynomial curve fitting is used to get the velocity 

* calibration coefficients. 

* Routines called: LSFIT: least squares polynomial fit 

* FILES: Master. fil: contains the path of the root. fil 

* root .FIL : input file containing the information on 

* the number of data points and the names of 

* document file, data file and output file. 
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* .dat -data files (input) 

* .doc -document files. (input) 

* .out - output files. (output) 

* PX1.CAL : The file containing the calibration coefficients 

* PX2.CAL and the average temperature during the calibration. 

* XCALP . OUT : The output file generated by this program contains 

* anemometer output, temperature compensated output, the velocity, 

* angle, and type of calibration (1-wirel, 2-wire2, 3-angle calibration) 

* 

* Signal connection: 

* Chi : XI Hotwire Ch3 : Thermocouple 

* Ch2 2 X2 Hotwire Ch4 : Differential pressure transducer 
★*★*★★★*★*★★★★★★★***★★★★★*★★* ★★★★**★★★★★★***★★*★**★***★★★★★★★★★★★ ******** 

program XCJkLP 

parameter (raax=33000) 

integer *2 idat (max) , iwm(300) 

integer*4 n, nch, itime, size, isize, delay 

integer*4 ierr,nsapch 

integer*4 npol,ks,inc 

real*8 Coef f ( 15) , A(40 ) , Var ( 15) 

real*4 Sumsq ( 16) , RMS ( 16) ,RMST(16) ,Avg(16) ,Avgt(16) 
real *4 pc (5) ,tc(5) , vel (300 ) , hwl (300) , t (300) ,hwcl(300) 
real*4 hw2 (300 ) ,hwc2 (300) , alpm(300 ) ,x(300 ) ,y (300 ) 
character*25 f ili, f ilo, f ild, f ilp 
data afac/1.0019/ 

* afac -area ratio factor for computing the nozzle exit velocity 

* afac=l/sqrt (1- (d2/dl) **4) 

c Write data to sreen or disk? 

Write (6, *) 'Sensor temperature in “C"?' 
read (5,*) tsens 

c open the file containing calibration constants for pressure 
c transducer . 

open(unit=8, f ile= ' pres . cal ' ) 
read (8, *) (pc ( i) , i=l,3) 
close (8) 

c open the file containing calibration constants for thermocouple, 
open (unit =8, f ile= ' temp . cal ' ) 
read (8, *) (tc(i) , i=l, 3) 
close (8) 
c 

open(unit=8, file='master.fil' ) 

read (8, ' (a25) ' ) filp 

close (8) 

tsavg=0 . 0 

inc=0 

c open the file containing the filenames and number of files 
10 inc=inc+l 

open (unit =8, f ile=f ilp) 
read (8,*)nf 
do i=l,inc 

read( 8,175) f ili, f ild, f ilo 
enddo 
close( 8) 

write (6, *) 'Reading the doc. file: inc=',inc 
open(unit=8, file=fild) 
read (8, *) pstat, pa tm, alpha, iw 
close (8) 
do 250 j=l,nch 
Avgt ( j ) = 0.0 
RMSt(j) =0.0 
250 continue 
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c select a block size 
if(inc.eq.l) then 

call RDFILS(fili,n, nch, itime, delay, ierr) 
write (*, 110) n, nch, itime, delay, ierr 
write (*, 120) 
read(*, *)size 
isize=2** (size+8) 
nblock=n/isize 
nsapch=isize/nch 
write (*, 130 )nblock, isize 
call RDFILC ( ierr) 
endif 

wr ite (6, *) 'Reading the data file: ' , f ili 
do 800 nb = l,nblock 

c open the ADC data file and read the header 

call RDFILS ( f ili , n , nch, itime, delay, ierr) 
c Read the data 

call RDBLK ( idat , nb, isize, ierr) 
c Inspect IERR flag 

write ( *, 150 ) ierr 
write (6,80) nb, isize 
c close data file 

call RDFILC (ierr) 

c Now calculate averages and RMS fluctuation levels 
do 300 j=l,nch 
Sumsq(j) = 0. 

300 Avg ( j ) = 0 . 

do 450 i=l, nsapch 
do 400 j=l,nch 

index = (i-l)*nch + j 

Avg ( j ) =Avg ( j ) + ( idat ( index) -2048 . ) * .004882812 
400 continue 

450 continue 

do 500 j=l,nch 

Avg(j) = Avg ( j ) /nsapch 

write ( 6 , * ) ' channel# ' , j,' Average value = ',Avg(j) 

Avgt(j) = Avgt(j) + Avg(j) 

500 continue 
c RMS calculations 
c 

do 600 i=l, nsapch 
do 600 j=l,nch 

index = (i-l)*nch + j 

De 1 =Avg ( j ) - { FLOAT ( idat ( index) ) -2048 . 0 ) * .004882812 
Sumsq(j) = Sumsq(j) + Del*Del 
600 continue 

do 700 j=l,nch 

RMS(j) = SQRT(Sumsq(j ) /nsapch) 

write ( 6 , * ) ' channel# ' , j , ' RMS value= ' , RMS ( j ) 

RMSt(j) = RMSt(j) + RMS(j) 

700 continue 
800 continue 

do 850 j=l,nch 

Avg(j) = Avgt(j) /nblock 
RMS(j) = RMSt(j) /nblock 
850 continue 

c Now write the averaged results to screen and to disk. 
temp=avg (3)**2.0*tc(3) +avg (3 ) *tc (2) +tc(l) 
pavg= (avg (4) **2 . 0*pc (3) +avg(4) *pc (2) +pc (1) ) *25 .4*9 .81 
rho= (patm*13 . 6+pstat ) * . 0348432/ ( temp+273 .15) 
c The next line prevents the blowing up of the program at zero velocity 
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c where the pressure transducer can indicate slight -ve reading, 
if (pavg.lt. 0.0) pavg=0.0 
velpn=sqrt (2 . 0*pavg/rho) *afac 
tstat=temp 
tsavg=tsavg+tstat 
t avg = t savg / i nc 

write (6, *) 'Writing to output file: inc=',inc 

write (*, 85) 

c Write to the output file 

open(unit=10, file=filo) 
write ( 6 , * ) ' nch= ' , nch 
do 900 ich=l,nch 

write (6, 90) ich f Avg(ich) ,RMS(ich) 
write (10, 90) ich,Avg(ich) , RMS(ich) 

900 continue 

write (6, 95)avg(l) , avg(2) ,velpn, temp 

write (10 / 95) avg ( 1) , avg (2) r velpn, temp 

close(10) 

t (inc) =tstat 

hwl ( inc) =avg (1) 

hw2 ( inc ) =avg ( 2 ) 

vel ( inc) =velpn 

iwm(inc) =iw 

alpm(inc) =alpha 

c Repeat processing the next file ? 
if (inc.lt.nf) go to 10 

c Temperature compensation of hotwire output for variation in fluid 
c temperature 

do 910 j=l,nf 

hwcl ( j ) =hwl ( j ) *sqrt ( (tsens-tavg) / (tsens -t ( j ) ) ) 

910 hwc2 (j ) =hw2 (j ) *sqrt ( (tsens-tavg) / (tsens -t(j))) 
call CLS 

c Write the results of velocity Vs hot-wire output 
open (unit =9, f ile= 'XCALP .OUT' ) 

write (6, *) 'TYPE ANGLE XI X1C X2 X2C VELOCITY ' 

write (9, *) 'TYPE ANGLE XI X1C X2 X2C VELOCITY ' 

do 920 j=l,nf 

write (9, 180) iwm( j ) ,alpm( j ) ,hwl ( j ) ,hwcl ( j ) ,hw2 ( j ) , hwc2 ( j ) , vel ( j ) 
920 write (6, 180) iwm( j ) , alpm( j ) , hwl ( j ) ,hwcl ( j ) ,hw2 ( j ) , hwc2 ( j ) , vel ( j ) 
write (9, ' (a, f 5 .2) ' ) 'Average temperature = ' , tavg 
close (9) 

Write (6 , * ) 'You may edit XCALP.OUT for zero velocity reading' 
Write (6, *) 'To edit type COMMAND . When finished type EXIT' 

Pause 

c Performing the least square fit for a polynomial of order 4 
npol=4 

Write (6 ,*)' CALIBRATION CONSTANTS AT TEMPERATURE ' , tavg 
do i=l,2 
n=0 

open(unit=8 r f ile= 'XCALP . OUT' ) 
read (8, *) 
do j=l,nf 

read (8, 180) iwm( j ) ,alpm( j ) r hwl( j) f hwcl( j) ,hw2 ( j ) ,hwc2 ( j ) , vel( j) 
if(iwm(j) .eq.i) then 
n=n+l 

if(i.eq.l) x(n) =hwcl ( j ) 
if(i.eq.2) x(n) =hwc2 ( j ) 
y (n) =vel ( j ) 
endif 
enddo 

call LSFIT (n, x,y, npol, a f var , coef f , ks) 
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if(i.eq.l) then 

write ( 6 , *) 'Wire 1' 
open (unit=9 , f ile= ' PX1 .CAL ' ) 
endif 

i f ( i . eq . 2 ) then 

write ( 6 f * ) 'Wire 2' 
open (unit =9 , f ile= ' PX2 .CAL ' ) 
endif 

write( 6 , *) (coeff (ipol) , ipol=l , npol+ 1 ) 
c Write calibration coefficients 

write( 9 , *) (coeff (ipol) , ipol=l, npol+ 1 ) 
write (9, *) 'Average temperature^' , tavg 
close (9) 
close ( 8 ) 
enddo 

c Formats 


80 

85 


90 

95 

100 

101 

110 

120 


13 0 
140 
150 
170 
175 
180 


format (' Calculated block number i3 , 2x, i5 , ' size') 
format(//,' Averaged results of A/D conversions 
$ 5x, ' Channel ', 6x, 'X (DC)', 

$ 8x, 'X (RMS) ' ) 

format(' ' , 7x, i3 , 2F14 . 5) , 

format (' XI volts ',10x, ' X2 volts ' , 10x, 'Velocity m/s 

$,' Temp C'/,fl0. 4, 15 x, f 10 .4, 12x, f8 .3 , lOx, f 8 . 3) 

format (/' ADC filename :'\) 
format (a) 


format (' n:',i 6 ,' nch:',i2,' itime:',i5, 
format (' — select block size --'/' 

*' 0 256'/' 1 512'/' 

*' 3 2048'/' 4 4096'/' 

*' 6 16384'/' 7 32768'/' 

format (' There are ',i3,' blocks of 
f ormat ( / ' read block#: '\) 
format (' ierr:',i 2 ) 
format ( 16i5) 
format (a, 2 x, a, 2 x, a) 

format ( lx, il, 5x, f 5 . 1 , 4 ( 5x, f 6 . 4 ) ,5x,f6.3) 
end 


delay: ' , i5, 
SIZE BUFFER'/ 

2 1024'/ 

5 8192'/ 

enter SIZE: '\) 

' , i5, ' words . . ' ) 


r ierr ' , i 2 ) 


*★****★*★***★**++ ★***★★** *★★***★* ******★*★★★**★*★************* ★★*★★****** 
5* Program to detsmdne Yaw calibration coafficianta 
★★★★★★★★★★★★★★★★★★★★★★★****^** ilr **‘*‘ l * r *'*‘***** 1lf ********* 1 * r ** 1 * f ****** *********** 
This program determines the yaw calibration functions alpha id, H, H 
and fit alpha id Vs alpha & alpha id Vs H* using fifth order 
polynomial. The coefficients of the polynomial are written to AL .CAL 
and H .CAL 

Input calibration files: PRES. CAL, TEMP. CAL 

PX1.CAL, PX2.CAL (velocity calibration 
obtained by keeping the wires normal to flow. Generated by XCALP.FOR) 

Routines called : LSFIT (least square fit program) 

FILES: filp : input file containing the information on the 

number of data points and the names of document file, data file and 
output file. 

.dat -data files of angle calibration ( input) 

.doc -document f iles .( input) 

.out - output files. (output) 

XCALF.OUT : output file with alpha, alphaid, Vel, Ve2 etc. 

Signal connection: 

Chi : Hotwire XI 


Ch3 : Thermocouple 
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* Ch2 : Hotwire X2 Ch4: Differential pressure transducer 

★★★★*★★★★★**★★★★*★*★*★**★*★*** ****** ****** ★*★**★★*** ************ ******** 

program XGALF 

parameter (max=33000 ) 
integer*2 idat(ioax) 

integer*4 n, nch, itime, size, isize, delay, inc 

integer*4 ierr,nsapch 

real *4 Avg ( 8 ) , Avgt { 8 ) 

real*4 hwvel ( 8 ) ,hwvelt (8) 

real*4 pc(5) , tc(5) ,xlc(5) ,x2c(5) 

real*4 hvoltt ( 16) # hvolttt ( 16) 

real*4 hh(200) # AL(200) ,ALI (200) 

real*8 ac{15) ,hc(15) ,A{40) ,Var(15) 

character *2 5 fili,filo,fild,filp 

character*80 sent 

data afac/1.0019/ 

Write (6 f *) 'Sensor temperature in "C"?' 
read (5,*) tsens 

c open the file containing velocity calibration constants for hot-wire 
open(unit=8, f ile='PXl .cal ' ) 
read ( 8 , * ) (xlc(i), i=l,5) 
read (8, 5) f ili, teal 
write (6, *) 'teal' , teal 
close (8) 

open(unit=8, f ile='PX2 .cal' ) 
read (8, *) (x2c(i) , i=l,5) 
read(8, 5) f ili, teal 
wr i te ( 6 , * ) ' teal ' , teal 
close (8) 

c open the file containing calibration constants for pressure 

c transducer. 

open (unit=8, f ile='pres .cal ' ) 
read (8, *) (pc(i) , i=l,3) 
close (8) 

c open the file containing calibration constants for thermocouple, 
open (unit =8, f ile= ' temp . cal # ) 
read (8, *) (tc (i) , i=l,3) 
close (8) 

c open the master file 

open (uni t=8, f ile= 'master . fil ' ) 

read (8,*) ntest 

read{8, ' (a ) 9 ) filp 

close (8) 

inc=0 

c open the file containing the filenames and number of files 
write(6,*) filp 

10 open (unit=8,blocksize=3096, f ile=filp) 
read (8,*)nf 
inc=inc+l 
do 15 i=l,inc 

15 read(8,175) f ili, f ild, f ilo 
close(8) 

write (6, *) 'reading doc.', inc 
open(unit=8, file=fild) 
read (8, *) pstat, pa tm, alpha, iw 
close (8) 
do 250 j=l,nch 
Avgt ( j ) = 0.0 
hwvel t ( j ) =0 . 0 
hvolttt (j ) =0 . 
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250 continue 
tempt =0 . 0 
pavgt=0 . 0 
velpnt=0 . 
if(inc.eq.l) then 

call RDFILS (f ili, n, nch, itime, delay, ierr) 
write (*, 110 )n, nch, itime, delay, ierr 
write(*, 120) 
read(*, *) size 
isize=2** (size+8) 
nblock=n/ isize 
nsapch=isiza/nch 
write (*, 130)nblock, isize 
call RDFILC ( ierr) 
endif 

write (6, *) 'Reading the data file: ',fili 
open (unit =9, f ile=filo) 
do 800 nb = l,nblock 

c open the ADC data file and read the header 

call RDFILS (f ili, n, nch, itime, delay, ierr) 

C Read the data 

call RDBLK ( idat , nb, isize, ierr) 
c Inspect IERR flag 

write (*, 150) ierr 
write <6, 80) nb, isize 
c close data file 

call RDFILC (ierr) 

c Now calculate averages and RMS fluctuation levels 
do 300 j=l,nch 
hwvel ( j ) =0 . 
hvoltt ( j ) =0 . 0 
300 Avg ( j ) =0.0 

do 450 i=l,nsapch 
do 400 j=l,nch 

index = (i-l)*nch + j 

Avg ( j ) =Avg ( j ) + ( idat ( index) -2048 . ) * .004882812 
400 continue 

450 continue 

do 500 j=l,nch 

Avg(j) = Avg ( j ) /nsapch 

write ( 6 , * ) ' channel# ' , j,' Average value = ' ,Avg(j) 

Avgt ( j ) = Avgt ( j ) + Avg ( j ) 

500 continue 

temp= (avg (3 ) **2.0*tc(3) +avg(3) *tc(2) +tc(l) ) 
pavg= (avg ( 4 ) * *2 . 0 *pc ( 3 ) +avg ( 4 ) *pc (2 ) +pc ( 1 ) ) *25 . 4*9 . 81 
rho= (patm*13 . 6+pstat) * . 0348432/ ( temp+273 . 15) 
if (pavg . It . 0 . 0 ) pavg=0 . 
velpn=sqrt (2 . 0*pavg/rho) *afac 
do 510 i=l, nsapch 
do 510 j =1 , 2 

index= (i-1) *nch +j 

hvolt= ( idat ( index) -2048 . ) * . 004882812 
hvolt=hvolt*sqrt ( ( t sens -teal) / ( tsens -temp) ) 
hvoltt ( j ) =hvoltt ( j ) +hvolt 
i f ( j . eq . 1 ) then 

hwvel (j ) =hwvel ( j ) + (xlc (1) +xlc (2) *hvolt+xlc (3 ) *hvolt**2 . 
$ +xlc (4) *hvolt**3 . 0 +xlc (5) *hvolt**4 . ) 

else 

hwvel ( j ) = hwvel ( j ) + (x2c (1) +x2c (2) *hvolt+x2c (3 ) *hvolt**2 . 
+x2c (4) *hvolt**3 . 0 +x2c (5) *hvolt**4.) 
endif 


$ 
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510 continue 

do 525 j=l, 2 

hwvel ( j ) =hwvel ( j ) /nsapch 
hvoltt( j )=hvoltt( j) /nsapch 
hwvelt(j) = hwvelt(j) + hwvel(j) 
hvolttt ( j ) =hvolttt (j )+hvoltt ( j ) 

525 continue 

tempt=tempt+temp 
pavg t =pavg t +pavg 
velpnt=velpnt+velpn 

write (6, *) 'ALPHA XI X1C X2 X2C PRESS TEMP 

$ VEL.PN Veffl Vef f2 ' 

if(nb.eq.l) then 

write (9, *) 'ALPHA XI X1C X2 X2C PRESS TEMP 

$ VEL.PN Veffl Vef f2 ' 

endif 

write (6, 85) alpha, avg(l) ,hvoltt(l) ,avg(2) ,hvoltt (2) ,pavg/9 .81, 

$ temp, velpn, hwvel (1) , hwvel (2 ) 

write(9,85) alpha, avg(l) ,hvoltt(l) ,avg(2) ,hvoltt(2) ,pavg/9.81, 

$ tenq?, velpn, hwvel (1) , hwvel (2) 

800 continue 

do 850 j=l,nch 

Avg(j) = Avgt(j) /nblock 
850 continue 

do 875 j=l, 2 

hwvel(j)= hwvelt (j ) /nblock 
hvoltt(j)=hvolttt(j) /nblock 
875 continue 

temp=tempt/nblock 
pavg=pavgt/nblock 
velpn=velpnt /nblock 

c Now write the final results to screen and to disk, 
c Write to the output file 

Write { 6, *) 'Final Averaged Results' 

Write(9, *) 'Final Averaged Results' 

write(6,85) alpha, avg(l) ,hvoltt(l) ,avg(2) ,hvoltt(2) ,pavg/9.81, 
$temp, velpn, hwvel ( 1) , hwvel (2) 

write(9,85) alpha, avg(l) ,hvoltt(l) ,avg(2) ,hvoltt(2) ,pavg/9.81, 
$temp, velpn, hwvel (1) , hwvel (2) 
close (9) 

c CALCULATE H and AlPHAid 

alid= (atan (hwvel (1) /hwvel (2) ) ) *57 .29578-45.0 
HI =velpn*velpn/ (hwvel (1) *hwvel (1) +hwvel (2) *hwvel (2 ) ) 

H2 =sqrt(hl) 

H3 =sqrt (hi) *cos (alid/57 . 29578) 

H4 =sqrt (hi) *cos (alpha/57 .29578) 
if (inc.eq.l) then 

open(unit=7, file='XCALF.OUT' ) 

write (7, *) 'ANGLE Veffl m/s Vef f2 m/s V m/s ALPHAid H H2 

$ H3 H* ' 
endif 

write (7,70) alpha, hwvel ( 1 ) , hwvel (2 ) , velpn, ALID, HI , H2 , H3 , H4 
write (6, *) 'ANGLE Veffl m/s Veff2 m/s V m/s ALPHAid H H2 

$ H3 H* ' 

write (6, 70) alpha, hwvel (1) ,hwvel(2) , velpn, ALID, HI, H2,H3,H4 
c Repeat processing the next file ? 
if (inc.lt.nf) go to 10 
rewind (7) 
read (7, ' (a) ' ) sent 
write (6, *) sent 
do j=l,nf 

read (7,70)al(j) , hwvel (1) , hwvel (2) , velpn, ALI (j ) , HI, H2 , H3 , HH ( j ) 
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write (6, 70) al ( j ) , hwvel { 1 ) , hwvel ( 2 ) , velpn, ALI ( j ) , HI , H2 , H3 , HH ( j ) 
enddo 
close(7) 

c calculate AL.CAL and H.CAL files 
npol=5 

call LSFIT (nf , ali, al, npol , a, var , ac,ks) 

call LSFIT (nf, ali, hh, npol, a, var, he, ks) 

open (unit =9, file=' H.CAL' ) 

write ( 6 , * ) ' H . CAL ' 

write (9, *) (HC(ipol) , ipol=l, 6) 

write ( 6 , * ) (HC ( ipol ) . ipol=l, 6) 

close(9) 

open(unit=9, f ile= ' AL . CAL ' ) 
write(6,*) 'AL.CAL' 
write ( 9 , * ) (AC ( ipol) , ipol=l , 6) 
write ( 6, * ) (AC ( ipol) , ipol=l, 6) 
close (9) 


c Formats 
5 format 


70 

80 

85 

90 

95 


format 
format 
format 
format 
format 

$,/, CIO 

100 format 

101 format 
11Q format 
120 format 

*' 0 
*' 3 
*' 6 

130 format 
140 format 
150 format 
170 format 
175 format 
end 


(a26, f 9 . 6) 

(lx, f5.1,3 (2x, f7.4) , 3x, f6.2,4(2x, £5.3)) 

(' Calculated block number i3 , 2x, i5, ' size') 

(lx, f5.1,4(2x,F6.4) ,2x, f6.2,2x, f5.2,3 (2x, f6.3) ) 

(' ' , 7x, i3 , 2F14 . 5 ) 

(' hotwire" voltage ',10x, 'velocity ' , 10x, ' teir?)erature ' 

.4 / 15x,fl0.4,12x,f8.3) 

(/' ADC filename :'\) 

(a) 

{' n : ' , i6, ' nch:',i2,' itime:',i5 f ' delay: i5, ' ierr : M2) 
(' — select block size — SIZE BUFFER'/ 

256'/' 1 512'/' 2 1024'/ 

2048'/' 4 4096'/' 5 8192'/ 

16384'/' 7 32768'/' enter SIZE:'\) 

(' There are ',i3,' blocks of ',i5,' words..') 

(/' read block#: '\) 

( ' ierr: ' , i2) 

(16i5) 

(a25, 2x, a25, 2x,a25) 


************************************************************************* 

6. Program to obtain the velocity calibration coefficient* of each of the 
sensor of the X-probe from a calibration using XCAL.FOR and keeping the 
sensors at 45 s to flow. 

************************************************************************* 


* This program process the data files generated during X-probe 

* calibration at alpha=0(i.e. both sensors at 45deg to flow) using 

* XCAL.FOR. This generates an output file VEFF.OUT containing voltage 

* output and effective velocity. The velocity calibration coefficients 

* will be stored in XI. CAL and X2.CAL for sensor 1 and 2 respectively. 

* The X-probe is calibrated in a in a low turbulence, uniform velocity 

* jet. A fourth order polynomial curve fitting is used to get the 

* velocity calibration coefficients. 


* Routines called: LSFIT: least square polynomial fit 

* AHC : ALPHAid and H for a given ALPHA 

* FILES: Master. fil: contains the path of the root.fil 

* root .FIL : data file containing the information on 

* the number of data points and the names of document file, data file 

* and output file. 

* .dat -data files (input) 
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* .doc -document files. (input) 

* .out - output files. (output) 

* XI. CAL : The file containing the calibration constant and 

* X2. CAL (output) the average temperature during the calibration. 

* 

* VEFF.OUT : The output file generated by this program contains 

* (output) hot-wire output, temperature compensated output, 

* the velocity , angle 

* 

* Signal connection: 

* Chi : XI Hotwire Ch3 : Thermocouple 

* Ch2 : X2 Hotwire Ch4 : Differential pressure transducer 

************* + ***★**★*★★**★★*★*★★★★*★*★*★****★****★•**★★**★★★★★★★★★★★★★* 

program VEF7 

integer*2 idat(33000) 

integer*4 n, nch, itime, size, isize, delay 

integer*4 ierr,nsapch 

integer *4 npol,ks,inc 

real *8 Coeff (15) ,A(40) ,Var (15) 

real*4 Sumsq(8) , RMS (8) , RMST (8) ,Avg(8) ,Avgt(8) 

real*4 pc(5),tc(5) ,vel(300) , hwl (300 ) , t (300) ,hwcl(300) 

real*4 hw2 (300) ,hwc2(300) , alpm(300) , x (300 ) , y (300 ) 

real*4 vel (300) , ve2 (300) 

character*25 fili, filo, fild, f ilp 

data afac/1.0019/ 

c afac -area ratio factor for computing the nozzle exit velocity 
c afac=l/sqrt (1- (d2/dl) **4) 
c Write data to sreen or disk? 

Write (6, *) 'Sensor temperature in "C"?' 
read (5,*) tsens 

c Get the ALPHAid and H for a given alpha 
write ( 6, *) 'Enter the angle alpha?' 
read (5, *) AL 
call AHC (AL, ALI, H) 

write (6, *) 'alphaid= ',ali, 'h= ',h 

RK2=Cos (AL/57 .29578) / (H* (sqrt (TAN ( (ALI+45. ) /57 . 29578 ) *TAN( (ALI 
$+45 . ) / 57 .29578) +1. ) ) ) 

RK1=RK2*TAN ( (ALI+45 .) /57 . 29578 ) 
write ( 6, *) 'Rkl=',rkl, 'RK2=',rk2 

c open the file containing calibration constants for pressure 
c transducer . 

open (unit =8, f ile='pres .cal ' ) 
read (8 , *) (pc ( i) , i=l,3) 
close (8) 

c open the file containing calibration constants for thermocouple. 
open(unit=8, file=' temp. cal' ) 
read ( 8 , * ) ( tc ( i ) , i=l / 3 ) 
close (8) 
c 

open(unit=8, file='master.fil' ) 

read (8, ' (a25) ' ) filp 

close(8) 

tsavg=0 . 0 

inc=0 

c open the file containing the filenames and number of files 
10 inc=inc+l 

open (unit=8, f ile=f ilp) 
read <8,*)nf 
do i=l,inc 

read( 8,175) f ili , fild, filo 
enddo 
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close( 8) 

write { 6, *) 'Reading the doc, file: inc=',inc 
open (unit =8, file=fild) 
read (8, *) pstat, pa tm, alpha, iw 
close(8) 
do 250 j=l,nch 
Avgt ( j ) = 0.0 
RMSt(j) = 0.0 
250 continue 
c select a block size 
if(inc.eq.l) then 

call RDFILS (f ili,n, nch, itime, delay, ierr) 
write { * , 110 ) n, nch, itime, delay, ierr 
write ( * , 120) 
read ( * , *) size 
isize=2** (size+8) 
nblock=n/isize 
nsapch=isize/nch 
write ( * , 130 ) nblock, isize 
call RDFILC ( ierr) 
endif 

write (6, *) 'Reading the data file: ',fili 
do 800 nb = 1, nblock 

c open the ADC data file and read the header 

call RDFILS (fili,n, nch, itime, delay, ierr) 
c Read the data 

call RDBLK ( idat , nb, isize, ierr) 
c Inspect IERR flag 

write ( * , 150) ierr 
write(6,80) nb, isize 
c close data file 

call RDFILC (ierr) 

c Now calculate averages and RMS fluctuation levels 
do 300 j=l,nch 
Sumsq ( j ) = 0 . 

300 Avg(j) = 0. 

do 450 i=l,nsapch 
do 400 j=l,nch 

index = (i-l)*nch + j 

Avg ( j ) =Avg ( j ) + ( idat ( index) -2048 . ) * . 004882812 
400 continue 

450 continue 

do 500 j=l,nch 

Avg ( j ) = Avg ( j ) /nsapch 

write (6, *) 'channel#' , j,' Average value = ',Avg(j) 

Avgt(j) = Avgt(j) + Avg(j) 

500 continue 
c 

c RMS calculations 

c 

do 600 i=l, nsapch 
do 600 j=l,nch 

index = (i-l)*nch + j 

Del=Avg ( j ) - (FLOAT ( idat ( index) ) -2048 . 0) * . 004882812 
Sumsq(j) = Sumsq(j) + Del*Del 
600 continue 

do 700 j=l,nch 

RMS(j) = SQRT ( Sumsq (j ) /nsapch) 

write ( 6, *) ' channel# ' , j,' RMS value= ',RMS(j) 

RMSt(j) = RMSt(j) + RMS(j) 

700 continue 
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800 continue 

do 850 j =1 , nch 

Avg(j) = Avgt ( j ) /nblock 
RMS(j) = RMSt(j) /nblock 
850 continue 

c Now write the averaged results to screen and to disk. 
temp=avg(3) **2.0*tc(3) +avg (3 ) *tc (2) +tc(l) 
pavg= (avg (4) **2 . 0*pc (3 ) +avg (4) *pc (2) +pc (1) ) *25 . 4*9 . 81 
rho= (patm*13 . 6+pstat ) * . 0348432/ ( temp+273 .15) 
c The next line prevents the blowing up of the program at zero velocity 
c where the pressure transducer can indicate slight -ve reading, 
if (pavg . It . 0 . 0) pavg=0.0 
velpn=sqrt (2 . 0*pavg/rho) *afac 
t s tat = temp 
tsavg=tsavg+tstat 
tavg=tsavg/ inc 

write(6, *) 'Writing to output file: inc=',inc 

write ( *, 85) 

c Write to the output file 

open(unit=10, f ile=filo) 
wr i te ( 6 , * ) ' nch= ' , nch 
do 900 ich=l,nch 

write (6, 90) ich, Avg ( ich) , RMS ( ich) 
write (10, 90) ich,Avg(ich) , RMS (ich) 

900 continue 

write (6,95) avg (1) ,avg(2) ,velpn, temp 

write (10, 95) avg (1) ,avg(2) ,velpn, temp 

close{10) 

t ( inc) =tstat 

hwl ( inc ) =avg ( 1 ) 

hw2 ( inc ) =avg ( 2 ) 

ve 1 ( inc ) =ve lpn 

alpm ( inc ) =alpha 

c Repeat processing the next file ? 
if (inc.lt.nf) go to 10 

c Temperature compensation of hotwire output for variation in fluid 
c temperature 

do 910 j=l,nf 

hwcl ( j ) =hwl ( j ) *sqrt ( ( tsens-tavg) / ( tsens -t(j) ) ) 
hwc2 ( j ) =hw2 ( j ) *sqrt ( (tsens-tavg) / (tsens -t(j) ) ) 

Vel ( j ) =RKl*vel ( j ) 

910 ve2 ( j ) =RK2 * ve 1 ( j ) 
call CLS 

c Write the results of velocity Vs hot-wire output 
open(unit=9, f ile= 'VEFF .OUT' ) 

write (6,*) 'ANGLE XI X1C X2 X2C VEL Vel Ve2 ' 

write (9,*) 'ANGLE XI X1C X2 X2C VEL Vel Ve2 ' 

do 920 j=l # nf 

write (9, 180)alpm(j) ,hwl(j) r hwcl(j) ,hw2(j) ,hwc2 (j) ,vel(j) ,Vel(j) , 
$ Ve2 ( j ) 

920 write (6, 180)alpm(j) ,hwl(j) # hwcl(j) ,hw2(j) ,hwc2(j) ,vel( j) ,Vel(j) , 
$Ve2 ( j ) 

write (9, ' (a,f5.2) ') 'Average tempera t ur e= tavg 
close (9) 

Write ( 6, *) 'You may edit VEFF. OUT for zero velocity reading' 

Write { 6, * ) 'To edit type COMMAND . When finished type EXIT' 

Pause 

c Performing the least square fit for a polynomial of order 4 
npol=4 

Write ( 6, *) 'CALIBRATION CONSTANTS AT TEMPERATURE tavg 

open (unit =8, file=' VEFF. OUT' ) 
read ( 8 , * ) 
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do j=l,nf 

read(8, 180 ) alpm( j ) , hwl ( j ) , hwcl ( j ) ,hw 2 (j) ,hwc 2 ( j ) , vel ( j ) , vel ( j) , 
$ Ve2 ( j ) 

x( j ) =hwcl ( j ) 
y ( j ) =vel { j ) 
enddo 
close ( 8 ) 

call LSFIT (nf , x , y , npol , a, var , coeff ,ks) 

write ( 6 , *) 'Wire 1' 

open(unit=9, f ile= 'xl .CAL' ) 

write ( 6 , *) (coeff (ipol) , ipol=l, npol+ 1 ) 

Write calibration coefficients 

write (9, *) (coeff (ipol) , ipol=l, npol+1) 
write (9,*) 'Average tempera ture=' , tavg 
close(9) 
do j=l,nf 
x ( j ) =hwc 2 ( j ) 
y ( j ) =ve 2 (j ) 
enddo 

call LSFIT (nf ,x,y, npol, a, var, coeff ,ks) 

write ( 6 , *) 'Wire 2' 

open (unit=9 , f ile= 'x2 .CAL' ) 

write ( 6 , *) (coeff (ipol) , ipol=l, npol+ 1 ) 

Write calibration coefficients 

write( 9 , *) (coeff (ipol) , ipol=l, npol+ 1 ) 
write (9,*) 'Average temperature= ' , tavg 
close(9) 

Formats 

80 format (' Calculated block number ', i3 , 2x, i5, ' size') 

85 format ( // , ' Averaged results of A/D conversions 
$ 5x, ' Channel' , 6 x, 'X (DC)', 

$ 8 x, 'X (RMS) ') 

90 format(' ' , 7x, i3 , 2F14 . 5) 

95 format (' XI volts ',10x, ' X2 volts ',10x, 'Velocity m/s . ' 

$,' Temp C'/,fl0. 4, 15x, f 10 .4, 12x, f8 .3, 10x, f8 . 3) 

00 format(/' ADC f ilename : ' \ ) 

01 format(a) , 

10 format (' n:',i 6 ,' nch:',i2,' itime:',i5,' delay i5, ' ierr' , i2) 
20 format (' — select block size — '/' SIZE BUFFER'/ 

*' 0 256'/' 1 512'/' 2 1024'/ 

*' 3 2048'/' 4 4096'/' 5 8192'/ 

*' 6 16384'/' 7 32768'/' enter SIZE:'\) 

30 format (' There are ',i3,' blocks of ',i5,' words..') 

40 format(/' read block#: '\) 

50 format!' ierr:',i 2 ) 

70 format(16i5) 

75 format !a, 2x, a, 2x, a) 

80 format (lx, f5.1,4(4x,f6.4) , 3 (4x, f 6 .3 ) ) 
end 
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B2. Data Acquisition Programs 


************************************************************************* 


1 . Data acquisition program for measurements using single sensor hot- 
film/wire probe 




*★*★★***★★**★★**★*★**★******* Hr* *★**★*★★*★★*★★★ ******** 


* This program is used to acquire single sensor data at various 

* radial locations by moving the probe to successive 

* points in auto mode. This is done by calling the TRAV routine. 

* The locations to move are read from coord.dat file 


* Features : 

* Write blocks of data continuously to disk. The file size is 

* is limited only by disk space, although here MAXBLOCK =32 to give 

* a 3MB upper limit. 

* select a block size between 512 and 32768 words and read any 

* single block into the IDAT data array. 

* EXTERNAL CALLS: RDFILO, RDBLK & RDFILC, all in ADCLIB . 

* : TRAV (for moving the unislide), FGEN (generate 

* file names), PVT(read pressure and temperature) 

* RESULT, SRDDSKB ( read and display data) 

* Data files : Coord.dat (contains the current location, over 

* travel limits, location to move) 


program AUTO4 . FOR 

integer*4 n, nch, itime, delay, size, isize 
parameter (max=32768, maxblock=32) 
integer*2 idat(max), ierr (maxblock) 
integer*4 idisk, jerr 
logical*! IVER, ishow, itrav 
character*80 ch, sent 

character *2 5 fild(300) , fili(300) , filo(300) , filp, filnam 

character*25 root 

double precision y(300) ,xn,xo 

data idisk/ 1/ 

* Move the probe position 
ntest=0 
ith=0 
inc=0 

ishow= . false . 

if (IVER( 'OShow data or results?')) ishow=.true. 
itrav= . false . 

if (IVER( 'OTraverse the probe during this test?')) then 
itrav=.true. 
else 
np=0 
xo=0 . 
go to 1 
end if 

open (Uni t=8, f ile= ' coord.dat ' ) 
read ( 8 , * ) ch 
read ( 8 , * ) np 

read (8, *) (y (I) , i=l,np) 
close (8) 

write (6, *) 'Data will be taken at the following points' 
write (6, *) (Y(i) , i=l,np) 

4 ith=ith+l 
xn=Y(ith) 
write(6,*) xn, ith 


c 



* o 
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call TRAV(ith,xo,xn) 
if(ith.gt.l) go to 6 

* read the ADC input parameter 

1 write(*,100) 

read ( * , * ) nch 
write(*, 110) 
read(*, *) itime 
write ( * , 115) 
read(*, *) delay 
write(*, 120) 
read(*, *)size 
isize=2** (size+8) 
write (*, 130) 
read{*, *)nblock 
n=isize*nblock 

write (6 ,*)' enter the root file name (without extension)?' 

read (*,500) root 

in=l 

do while (root (in: in) .ne. ' ') 

f ilp (in : in) =root ( in : in) 
in=in+l 
end do 

filp(in:in+3) =' . fil' 

6 ntest=ntest+l 

if (ntest .eq. 1) then 

open(unit=9, file= 'master . fil ' ) 
write(9,*) ntest 
write (9, ' (a) ' ) filp 
close ( 9 ) 
end if 

call FGEN( root, ntest, fili, fild, filo) 
call CLS 

f ilnam=f ili (ntest) 
write(6,300) filnam 

c Reading temperature and pressure in one shot mode 
call PVT ( temp , pres ) 
pause 'Please [ENTER] to start' 
open data file, write file header, initialize RC board 
call ADFILS (filnam, n, nch, itime, delay, jerr) 
call ADHALTO 

call ADC0 (nch, itime, size) 
write (*,*)' sampling hot-wire data..' 
call ADC1 (delay) 

* read NBLOCK blocks of data from RC A/D and write to file 

do 10 i=l,nblock 

10 call RDBUF ( idat, isize, ierr(i), idisk) 

* stop the ADCs, close the data file 

call ADHALTO 
call ADFILC (jerr) 

* inspect IERR array for error flags 

write (*, 140) (i, ierr (i) , i=l,nblock) 

C Input test parameters 

If (ntest .eq. 1) then 

write (6,*)' Static pressure in "mm" of water?' 
read (5,*) PSTAT 

write(6,*)' Barometric pressure in *mm" of Hg ?' 
read ( 5 , * ) patm 

write (6, *) 'Any other parameters to document? (max. one line) 
read(5, ' (a80) ' ) sent 
endif 

c get time and date 
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call GETTIM( ihr , imin, isec, ilOO) 
cal 1 GETDAT ( iyr , imon , iday ) 
c document this test 

open(unit=8, f ile=f ild (ntest) ) 
write(8, *) temp, pres, ps tat, pa tm, -xo 
write (8, *) fili (ntest) 
write (8, *) sent 

write(8, 450) imon, iday, ihr, imin 
close(8) 

c update . fil; later used by data analysis software 
open(unit=8, file=filp) 
write (8, *) ntest 
do 20 j=l, ntest 

20 write (8, 400) f ili ( j ) , f ild( j ) , filo ( j ) 
close (8) 

* repeat? 

if (itrav.eqv. . false. ) then 

if ( IVER( ' Orepeat acquiring new data at this location?')) goto 6 
endif 

* reads data from disk and show results? 

if(ishow) then 

if (IVER( ' Oread data from disk?')) Call SRDDSKB ( f i 1 i ) 
inc=inc+l 

if (IVER( ' OShow results?')) Call RESULT (inc) 
else 

go to 90 
endif 

* repeat acquiring new data? 

if (IVER( 'Orepeat acquiring new data?')) goto 1 

* Move to new location 

90 if (ith.lt .NP) go to 4 

write (6, *) 'terminating the program at your request' 
stop 'bye' 

* formats 


100 

110 

115 

120 


130 

140 

280 

300 

400 

450 

500 


format (/ ' 
format ( ' 
format ( ' 
format ( ' 
*' 0 
*' 3 
*' 6 
format ( ' 
format ( ' 


nch [1,2,4,8,16] :'\) 
itime [usee, 1-65384] :'\) 
delay [usee, 0-65535] :'\) 

-- select buffer size --'/' 


SIZE 


512'/' 

4096'/' 

32768'/' 

ierr = ' , il) 


256'/' 1 
2048'/' 4 
16384'/' 7 
nblock: ' \) 
block# ' , i3 , 
format (a30) 

format ( ' HOT-WIRE data will be stored 
PRESSURE AND TEMPERATURE . . ' ) 


BUFFER' 

1024'/ 

8192'/ 


enter SIZE: '\) 


in ' , a, /, ' SAMPLING FOR 


format (a25, 2x, a25, 2x, a25) 

format ( ' DATE: ' , i2 , ' / ' , i2 , 5x, ' TIME : ',i2,'-',i2) 

format (a) 

end 


2. Data acquisition program for measurements using X-hot- film/ wire probe 

* This program is used acquire data from X-probe by traversing the probe 

* to different locations in auto mode. 

* This is done by calling the TRAV routine. The locations to move are 

* read from coord.dat file 

* Features : 



215 


* Write blocks of data continuously and then read it. The file size is 

* is limited only by disk space, although here MAXBLOCK = 32 to give 

* a 3MB upper limit. 

* Select a block size between 512 and 32768 words and read any 

* single block into the IDAT data array. 

* External routines required: 

* ADFILS, ADCO, ADC1, RDBUF, ADHALT & ADFILC, RDFILO, RDBLK & 

* RDFILC, all in ADCLIB. 

* Fortran subroutines: 

* IVER : asks for confirmation [Y/N] 

* FGEN : generates file name with appropriate extension . No . 

* LAG : make a given delay between next line of execution 

* SPVT8 : subroutine to get the average pressure, temp, etc. 

* SRDDSKB : subroutine to read and display the raw data 

* SXRES : for showing the result for a given point 

* ATRAV : for moving the unislide 

* Data files : Coord.dat (contains the locations to move) 

* Signal connection: 

* Chi : Hotwire XI Ch3 : Thermocouple 

* Ch2 : Hotwire X2 Ch4 : Differential pressure 

* transducer ( 0-10mm) , PR1 

* Ch5 : Differential pressure transducer (0 -100mm) , PR2 
***************** ************************************ ******************** 

program XAUTO 

integer*4 n, nch, itime, delay, size, isize 
parameter (max=32768, maxblock=32) 
integer*2 idat(max), ierr (maxblock) 
integer*4 idisk, jerr 
logical*l IVER, itrav 
character*80 ch, sent 

character*25 fild(300) , f ili (300 ) , f ilo (300) , f ilp, f ilnam 

character*25 root 

double precision y(300),xn,xo 

data idisk/1/ 

* Move the probe position 

ntest=0 

ith=0 

inc=0 

ishow= . false . 

write (6,*) 'Enter the delay in seconds for acquiring data after the 
* probe movement' 
read(*, *) ilag 

if (IVER( 'OShow data or results?')) ishow=.true. 
itrav= . false . 

if (IVER( ' OTraverse the probe during this test?')) then 
itrav= . true . 
else 
np=0 
xo=0 . 
go to 1 
endif 

open (Unit=8 , f ile= ' coord .dat' ) 
read (8, *) ch 
read ( 8 , * ) np 

read(8, *) (y(I) , i=l,np) 
close(8) 

write (6, *) 'Data will be taken at the following points' 
write (6, *) (Y(i) , i=l,np) 

4 ith=ith+l 

xn=Y ( ith) 

c write(6,*) xn,ith 
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call ATRAV ( ith, xo,xn) 
if(ith.gt.l) go to 6 

* read the ADC input parameter 

1 write(*,100) 

read ( * , * ) nch 
write(*, 110) 
read(*, *) itime 
write(*, 115) 
read(*, *) delay 
write ( *, 120 ) 
read(*,*)size 
isize=2** (size+8) 
write(*, 130) 
read(*, *)nblock 
n=isize*nblock 

write (6, *) 'enter the root file name (without extension)?' 

read (*,500) root 

in=l 

do while (root ( in: in) .ne. ' ') 
f ilp ( in : in) =root ( in : in) 
in=in+l 
end do 

filp(in:in+3) =' .fil' 

6 ntest=ntest+l 

if (ntest. eq.l) then 

open (unit=9 , file= 'master . fil ' ) 
write(9,*) ntest 
write (9 , ' (a) ' ) filp 
close (9) 
endif 

call FGEN (root, ntest, f ili, fild, filo) 
call CLS 

f ilnam=f ili (ntest) 
write(6,29Q) ilag 
call LAG (ilag) 
write(6,300) filnam 
pause 'Please [ENTER] to start' 
open data file, write file header, initialize RC board 
call ADFILS( filnam, n, nch, itime, delay, jerr) 
call ADHALTO 

call ADC0 (nch, itime, size) 
write (*,*)' sampling hot-wire data..' 
call ADC1 (delay) 

* read NBLOCK blocks of data from RC A/D and write to file 

do 10 i=l,nblock 

10 call RDBUF ( idat , isize, ierr(i), idisk) 

* stop the ADCs, close the data file 

call ADHALTO 
call ADFILC ( j err) 

* inspect IERR array for error flags 

write (*, 140) (i, ierr (i) , i=l,nblock) 
write(6,350) 

c acquiring temperature and pressure in one shot mode 
call SPVT8 ( temp , pr 1 , pr2 ) 

C Input test parameters 

If (ntest -eq.l) then 

write (6,*)' Static pressure in "mm" of water?' 
read (5,*) PSTAT 

write(6,*)' Barometric pressure in “mm" of Hg ?' 
read(5, *)patm 

write (6, *) 'Any other parameters to document? (max. one line)' 
read (5, ' (a80) ' ) sent 
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endif 

c get time and date 

call GETTIM(ihr, imin, isec, ilOO) 
call GETDAT ( iyr , imon , iday ) 
c document this test 

open (unit =8, f ile=f ild (ntest) ) 
write (8 , *) temp, prl , pr2 , pstat , patm, -xo 
write(8,*)fili (ntest) 
write (8 , *) sent 

write (8,450) imon, iday, ihr , imin 
close (8) 

c update . fil; later used by data analysis software 
open (unit =8, f ile=f ilp) 
write(8, *)ntest 
do 20 j =1, ntest 
20 write (8, 400) f ili ( j ) 
close (8) 

* repeat? 

if (itrav.eqv. .false. ) then 

if (IVER( 'Orepeat acquiring new data at this location?')) goto 6 
endif 

* reads data from disk and show results? 

if(ishow) then 

if (IVER (' Oread data from disk?')) Call SRDDSKB ( f ili (ntest ) ) 
inc=inc+l 

if (IVER ('OShow results?' ) ) Call SXRES(inc) 
else 

go to 90 
endif 

* repeat acquiring new data? 

if (IVER (' Orepeat acquiring new data?')) goto 1 

* Move to new location 

90 if (ith.lt. NP) go to 4 

write (6, *) 'terminating the program at your request' 
stop 'bye' 

* formats 

100 format {/' nch t 1, 2 , 4 , 8 , 16] : ' \ ) 

110 format (' itime [usee, 1-65384] :'\) 

115 f orraat ( ' delay [usee, 0-65535] :'\) 

120 format ( ' — select buffer size SIZE BUFFER'/ 

*' o 256'/' 1 512'/' 2 1024'/ 

*' 3 2048'/' 4 4096'/' 5 8192'/ 

★' 6 16384'/' 7 32768'/' enter SIZE:'\) 

130 format ( ' nblock : ' \ ) 

140 format (' block# ',i3,' ierr = ',il) 

280 format(a30) 

290 format (' Waiting for the specified delay ',13,' Sec') 

300 format (' HOT-WIRE data will be stored in ',a) 

350 format (' SAMPLING FOR PRESSURE AND TEMPERATURE..') 

400 format(a25) 

450 format ( ' DATE: ' , i2 , ' / ' , i2 , 5x, ' TIME : \i2,'-',i2) 

500 format(a) 
end 
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★★★★★★***★★★★★★★*★★****★*★***★**★******************** ******************** 

3* Data acquisition program for phasa-avaragad measurements using X-hot- 
film/wire proba 

*************************★**★*★★★***★★★★**★ **★**★ **★*★**★★★*★★★★+★****★★* 


* This program is used acquire data from X-probe by traversing the probe 

* to different locations in auto mode. A/D board is externally 
triggered 

* by once in a revolution per signal from fiber optic proximity sensor. 

* The locations to move are read from coord.dat file 

* Feature: Data acquisition of A/D board in one-shot mode. 

* External routines required: 

* ADOS, ADIS, RD1S, ADFILO, ADFILC - all in AD10LIB .LIB 

* Fortran subroutines: 


IVER 

FGEN 

LAG 

SPVT8 

SRDDSKB 

SXRES 

TRAV : 

SRPM 


asks for confirmation [Y/N] 

generates file name with appropriate extension No. 
make a given delay between next line of execution 
subroutine to get the average pressure, temp, etc. 
subroutine to read and display the raw data 
for showing the result for a given point 
for moving the unislide 
get rpm of wake generator 


Data files : Coord.dat (contains the locations to move) 
Signal connection: 

XI Ch3 : Thermocouple 

X2 Ch4: Differential pressure 

transducer (0-1 0mm) ,PR1 
Ch5 : Differential pressure transducer (0-10 0mm) , PR2 


Chi : Hotwire 
Ch2 : Hotwire 


******************************************* ********** *★★*★★★★★★★★*★★**★★★ 


program UXAUTO 

parameter (max=32768) 
integer*2 idat(max) 

integer*4 n, nch, nrev, itime, delay, size, isize,idisk 
integer*4 ierr, ierrf 
logical*l IVER, itrav 
character*80 ch,sent 

character ^2 5 fild(3 00) , fili(300) , f ilo (300 ) , f ilp, f ilnam 

character *2 5 root 

double precision y(300),xn,xo 

data idisk,nrev/l, 1/ 


* Move the probe position 
ntest=0 
ith=0 
inc=0 

write (6,*) 'Enter the delay in seconds for acquiring data after the 
* probe movement' 
read(*, * ) ilag 

write(6,*) 'Enter the approximate rpm ? (Exact value will be found 
$later) ' 
read ( * , * ) rpm 
itrav=. false. 

if (IVER( ' OTraverse the probe during this test?')) then 
itrav=. true, 
else 
np=0 
xo=0 . 
go to 12 
endif 

open (Uni t=8, file= ' coord.dat ' ) 
read(8, *) ch 
read ( 8 , * ) np 

read (8, *) (y(I) , i=l,np) 
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close(8) 

write (6, *) 'Data will be taken at the following points' 
write (6, *) (Y(i) , i=l, np) 

4 ith=ith+l 

xn=Y ( ith) 

c write(6,*) xn, ith 

call TRAV(ith,xo,xn) 
c Get the rpm 
12 call SRPM (rpm) 

if(ith.gt.l) go to 6 

* read the ADC input parameter 

write (*, 100) 
read ( * , * ) nch 
write (*, 115) 
read(*, *) delay 

write (6 , * ) 'Buffer Size is the total number of samples taken during 
$ one revolution.' 
write(*, 120) 
read(*, *) size 
isize=2** (size+8) 
itime= 60000000*nch/ (rpm*isize) 

Write (6, *) 'Based on the revolution of', rpm, ' rpm and given buffer 
$size the sampling interval is :',itime,' micro sec' 
write (6, *) 'You may change the rpm now.' 
if (IVER( ' ODid you change the rpm?')) go to 12 
write (6, *) 'Total Number of revolution for sampling?' 
read { * , * ) nrev 

write (6, *) 'Total Number of rods?' 

read(*, *)nrod 

n=isize*nrev 

write (6, *) 'enter the root file name(without extension)?' 

read(*,500) root 

in=l 

do while (root ( in: in) .ne . ' ') 

f ilp( in : in) =root ( in : in) 
in=in+l 
end do 

f ilp( in : in+3 ) = ' . f il ' 

6 ntest=ntest+l 

if (ntest .eq. 1) then 

open (unit=9 , file= 'master . f il ' ) 
write(9,*) ntest 
write (9, ' (a) ')filp 
close (9) 
endif 

call FGEN(root, ntest, fili, fild, filo) 
call CLS 

f ilnam=f ili (ntest) 
write(6,290) ilag 
call LAG (ilag) 
write(6,300) filnam 
c pause 'Please [ENTER] to start 

* open data file, write file header 

call ADFILS( filnam, n, nch, itime, delay, ierr) 
write {*,*) 'sampling hot-wire data..' 

* initialize RC board, and go on keyboard prompt 

do 10 j=l,nrev 

call ADOS (nch, itime, size) 

* Waiting for external trigger 

call TRIG0O 
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* read from RC ISC-16 -> IDAT -> disk, and inspect I ERR flag 

call RD1S ( idat , isize, ierr, idisk) 
write ( *, *) j , ' ierr = ' , ierr 
10 continue 

* close the file when done 

call ADFILC (ierrf ) 

c Reading temperature and pressure in one shot mode 
call SFVT8 ( temp, prl , pr2 ) 

C Input test parameters 

If (ntest .eq. 1) then 

write (6,*)' Static pressure in "mm" of water?' 
read (5,*) PSTAT 

write(6,*)' Barometric pressure in "mm" of Hg ?' 
read(5, *)patra 

write (6, *) 'Any other parameters to document? (max. one line)' 
read (5, ' (a80) ' ) sent 
endif 

c get time and date 

call GETTIM( ihr, imin, isec, ilOO ) 
call GETDAT ( iyr , imon , iday ) 

c document this test 

open (unit=8 , file=fild (ntest) ) 

write (8, *) temp, prl , pr2 , pstat,patm, -xo 

write ( 8 , * ) rpm, nrod, nrev 

write (8, *) fili (ntest) 

write (8, *) sent 

write (8, 450) imon, iday, ihr, imin 
close (8) 

c update .fil? later used by data analysis software 
open(unit=8, file=filp) 
write(8, *)ntest 
do 20 j=l, ntest 
20 write (8, 400 ) f ili ( j ) 
close (8) 

* repeat? 

if (itrav.eqv. .false.) then 

if (IVER( ' Orepeat acquiring new data at this location?')) goto 6 
endif 

* Move to new location 

90 if (ith.lt. NP) go to 4 
stop 


* formats 


100 

110 

115 

120 


130 

140 

280 

290 

300 

350 

400 

450 

500 


format(/' nch [ 1 , 2 , 4, 8 , 16] : ' \ ) 
format(' itime [usee, 1-65384] :'\) 
format (' delay [usee, 0-65535] :'\) 


format ( ' 

-- select 

buffer 

size — '/' SIZE 

BUFFER' 

*' 0 

256 '/ 

' 1 

512'/' 2 

1024'/ 

*' 3 

2048'/' 

4 

4096'/' 5 

8192'/ 

*' 6 

16384'/' 

7 

32768'/' enter 

SIZE: '\) 


format (' nblock:'\) 

format (' block# ',i3,' ierr = ',il) 

format (a30) 

format (' Waiting for the specified delay ',13,' Sec') 
format (' HOT-WIRE data will be stored in ',a) 
format ( ' SAMPLING FOR PRESSURE AND TEMPERATURE . . ' ) 
format (a25) 

format (' DATE: ' , i2 , ' / ' , i2 , 5x, 'TIME: ',i2,':',i2) 
format (a) 
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end 
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B3. Data Reduction and Analysis Programs 


1. Data reduction program for proceeding the data obtained by aingle 
aenaor hot-film/wire measurements 

* This program reduces the data generated by programs like ADRDTR4, 

* AUT04, etc. The data file is opened as a random access file and 

* addressed similar to RDDSKB, but all from FORTRAN 

* Routines called: IVER 

* FILES: PROCESS. PAR : data file containing the information on 

* (input) the number of data points and the names of 

* document file, data file and output file. 

* .dat -data files (input) 

* .doc -document f iles .( input) 

* .out - output files. (output) 

* CTA.CAL : The file containing the calibration constant and 

* (input) the average temperature during the calibration. 

* Signal connection: 

* Chi : Hotwire Ch3 : Thermocouple 

* Ch2 : Reserved for hotwire Ch4: Differential pressure transducer 

program BPRO 

parameter (max=33000 ) 
integer*2 idat(max) 

integer*4 n, nch, itime,isize, delay, inc 
integer*4 ierr,nsapch 

real*4 Sumsq(8) ,RMS(8) ,RMST(8) ,Avg(8) ,Avgt (8) , turb(8) 
real *4 vrms (8) , vrmst (8) , hwvel (8) ,hwvelt (8) , hwvsq(8) 
real *4 turbt(8) 

real *4 etc (5) ,hvoltt (16) ,hvolttt (16) 
character*25 fili, filo, f ild, filp 
character*80 sent 

c tsens = Sensor temperature in "C“ 

c yzero = Multiplication factor to change the sign of co-ordinate 
c ( -1.0 or 1.0 ) 

open(unit=8, f ile='bpro.par ' ) 
read (8, *) tsens, yzero, isize 
close(8) 

c open the file containing calibration constants for hot-wire 
open (unit =8, file=' eta. cal' ) 
read (8 , * ) (etc ( i) , i=l,5> 
read(8, 5) fili, teal 
close(8) 

c open the master file 
ntes=0 

3 open (unit =8, file= 'master . f il ' ) 
ntes=ntes+l 
read (8,*) ntest 
do 7 i=l,ntes 
7 read ( 8 , ' (a) ') filp 
close (8) 
inc=0 

c open the file containing the filenames am d number of files 
write(6, *) filp 
10 open (unit =8, f ile=f ilp) 
read (8,*)nf 
inc=inc+l 
do 15 i=l,inc 

15 read(8,175) f ili , f ild, filo 
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close (8) 

write(6,*) fild 

open (unit =8, f ile=fild) 

read(8 # *) temp, pres, pstat, pa tm, posit 

posit=posit*yzero 

close(8) 

c open the ADC data file and read the header 

call RDFILS ( f i 1 i , n , nch, itime, delay, ierr) 
write (*, 110 )n, nch, itime, delay, ierr 
c select a block size 

nblock=n/isize 
nsapch=isize/ nch 
c call CLS 

write (6, *) 'Reading the data file: ',fili 

write (*, 130)nblock, isize 

do 250 j =1 , nch 
Avgt ( j ) = 0.0 
RMSt(j) =0.0 
hwvelt ( j ) =0 . 0 
vrmst ( j ) =0 . 0 
hvolttt ( j ) =0 . 
turbt ( j ) =0 . 

250 continue 

open(unit=9, file=filo) 
do 800 nb = l,nblock 

call RDBLK ( idat , nb, isize, ierr) 
c Inspect IERR flag 

write ( * , 150) ierr 
c Write array to screen? 

write (6, 80) nb, isize 
c if(lscr) then 

c if ( IVER ( ' Show this block?')) write (6, 170 )( idat (i) , i=l, isize) 

c endif 

c Now calculate averages and RMS fluctuation levels 
do 300 j=l,nch 
Sumsq ( j ) = 0 . 
hwvel ( j ) =0 . 
hwvsq ( j ) =0 . 0 
vrms ( j ) =0 . 
hvoltt ( j ) =0 . 0 
300 Avg ( j ) = 0.0 

do 450 i=l,nsapch 
do 40 0 j =1 , nch 

index = (i-l)*nch + j 

Avg ( j ) =Avg ( j ) + (idat (index) -2048 . ) * .004882812 
400 continue 

450 continue 

do 500 j =1, nch 

Avg ( j ) = Avg ( j ) / nsapch 

write (6,*) 'channel#', j,' Average value = # ,Avg(j) 

Avgt(j) = Avgt(j) + Avg(j) 

500 continue 

c Calculate density and velocity at the pneumatic probe 
rho= (patm*13 . 6+pstat ) * . 0348432/ (temp+273 . 15) 
if (pres . It . 0 . 0 ) pres=0 . 
velpn=sqrt ( 2 . 0*pres*9 . 81/rho) 

do 510 i=l, nsapch 
do 510 j=l,l 
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index=(i-l) *nch +j 

hvolt= (idat (index) -2048 . ) * .004882812 
hvolt=hvolt*sqrt ( (tsens-tcal) / (tsens -temp) ) 
hvoltt ( j ) =hvoltt ( j ) +hvolt 

hwvel ( j ) =hwvel ( j ) + (etc (l)+ctc (2) *hvolt+ctc (3 ) *hvolt**2 . 

$ +ctc (4) *hvolt**3 . 0 +ctc (5) *hvolt**4 . ) 

510 continue 

do 525 j-1,1 

hwvel (j ) =hwvel ( j ) /nsapeh 
hvoltt (j ) =hvoltt (j ) /nsapeh 

c write (6, *) 'channel#' , j,' hvoltt= ', hvoltt (j) 

c write ( 6, *) 'channel#' , j , ' Average velocity^ ',hwvel(j) 

hwvelt(j) = hwvelt(j) + hwvel (j) 
hvolttt ( j ) =hvolttt ( j ) +hvoltt( j ) 

525 continue 

c RMS calculations 

c 

do 600 i=l, nsapeh 
do 620 j=l,nch 

index = (i-l)*nch + j 

Del=Avg ( j ) - (FLOAT ( idat ( index) ) -2048 . 0 ) * . 004882812 
Sumsq(j) = Sumsq(j) + Del*Del 
620 continue 

do 625 j=l,l 

index=(i-l) *nch + j 

hvolt= (idat ( index) -2048 . ) * . 004882812 
hvolt=hvolt*sqrt ( (tsens-tcal) / (tsens -temp) ) 
hvel= (etc (1) +ctc (2 ) *hvolt+ctc (3 ) *hvolt**2 . 

$ +ctc (4) *hvolt**3 . 0 +ctc (5) *hvolt**4 . ) 

del=hwvel ( j ) -hvel 
hwvsq( j ) =hwvsq( j ) +del*del 
625 continue 

600 continue 

do 700 j=l,nch 

RMS ( j ) = SQRT(Sumsq( j ) /nsapeh) 

write (6, *) 'channel#' , j,' RMS value= ',RMS(j) 

RMSt(j) = RMSt(j) + RMS(j) 

700 continue 

do 725 j=l,l 

vrms ( j ) =SQRT (hwvsq ( j ) /nsapeh) 
turb(j)= (vrms (j ) /hwvel (j )) *100 . 0 

c write ( 6, *) 'channel#' , j,' RMS ve loci ty= ',VRMS(1) 

VRMSt(j) = VRMSt(j) + VRMS(j) 

turbt ( j ) =turbt ( j ) +turb ( j ) 

725 continue 

wr ite( 6, *) 'POSITION VOLTAGE VOLT.C PRESS TEMP VEL.PN 
$ VEL.ANE VEL.RMS TURB. ' 
if(nb.eq.l) then 

write (9, *) 'POSITION VOLTAGE VOLT.C PRESS TEMP VEL.PN 
$ VEL.ANE VEL.RMS TURB.' 
endif 

write(6,70)posit,avg(l) ,hvoltt(l) , pres, temp, velpn 
$ , hwvel (1) , vrms (1) , turb(l) 

write (9, 70) posit, avg(l) , hvoltt (1) ,pres, temp, velpn 
$ , hwvel (1) ,vrms (1) , turb(l) 

800 continue 
c close the file 

call RDFILC(ierr) 
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do 850 j=l,nch 

Avg(j) = Avgt ( j ) / nblock 
RMS(j) = RMSt ( j ) /nblock 
850 continue 

do 875 j=l,2 

hwvel (j) = hwvelt (j ) /nblock 
VRMS(j) = VRMSt (j ) /nblock 
turb ( j ) = turbt ( j ) /nblock 
hvoltt ( j ) =hvolttt { j ) /nblock 
875 continue 

c Now write the averaged results to screen and to disk, 
write (*, 85) 

c Write to the output file 


Write (9, *) 'Averaged Results' 

write (6,70) posit, avg(l) , hvoltt ( 1) , pres , temp, velpn 
$ , hwvel ( 1 ) , vrms ( 1 ) , turb { 1 ) 

write (9 , 70) posit, avg(l) , hvoltt (1) , pres, temp, velpn 
$, hwvel (1) , vrms (1) , turb(l) 
close (9) 

if (inc.eq.l) then 

c Create the output filename for velocity, turb. etc. 
in=l 

do while { f ilp ( in : in) .ne. ' . ' ) 
f ilo ( in: in) =f ilp ( in: in) 
in=in+l 
end do 

f ilo ( in : in+3 ) = ' .out' 

c Write the results of velocity and turbulence 

open (unit=7, file=f ilo) ___ 

write (7, *) 'POSITION VOLTAGE VOLT.C PRESS TEMP VEL.PN 
$ VEL.ANE VEL.RMS TURB.' 
endif 

wr i te ( 7 , 7 0 ) pos i t , avg < 1 ) , hvo 1 1 1 ( 1 ) , pres , temp , velpn 
$, hwvel (1) , vrms ( 1) , turb(l) 


c Repeat processing the next file ? 
if (inc.lt.nf) go to 10 
rewind (7) 
read (7 , ' (a) ' ) sent 
write (6, *) sent 
do j=l,nf 

read (7, 70) posit, avg (1) , hvoltt (1) , pres, temp, velpn 
$ , hwvel ( 1 ) , vrms ( 1 ) , turb ( 1 ) 

write (6, 70) posit, avg (1) , hvoltt (1) , pres, temp, velpn 
$ , hwvel (1) , vrms (1) , turb(l) 

enddo 

if {ntes.lt. ntest) go to 3 
c Formats 

5 format (a26 , f 9 . 6) ^ 0 , 

7 0 format (f9.4,2(2x, f7.3) ,4( 2x, f 7 . 2 ) , 2x, f 5 . 3 , 2x, f 5 . 2 ) 

80 format (' Calculated block number i3 , 2x, i5, ' size') 

85 format!//,' Averaged results of A/D conversions :',/, 

$ 5x, ' Channel ', 6x, 'X (DC)', 

$ 8x, 'X (RMS) ') 

90 format(' ' , 7x, i3 , 2F14 . 5) t ^ t 

95 format (' hotwire voltage ',10x, 'velocity ',10x, teirperature 
$, /, fl0.4, 15x, fl0.4, 12x, f 8 . 3 ) 

100 format ( / ' ADC filename: '\) 


101 format(a) 

110 format (' n:',i6,' nch:',i2,' itime: 
120 format ( ' -- select block size — '/' 


, i5, ' delay: ', i5, ' ierr: ', i2) 
SIZE BUFFER'/ 
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*' 0 256'/' 1 512'/' 2 1024'/ 

*' 3 2048'/' 4 4096'/' 5 8192'/ 

*' 6 16384'/' 7 32768'/' enter SIZE :' \ ) 

130 format (' There are ',i3,' blocks of ',i5,' words..') 
140 format (/' read block#: '\) 

150 format (' ierr:',i2) 

170 format(16i5) 

175 format (a25, 2x, a25, 2x, a25) 
end 


★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★I*********************************** 

2. Data reduction program for processing the data obtained X-hot- 
film/ wire measurements 

*★★*★★★**★**★★★★*★★★★*★★★★********* ************************************** 

* This program reduces the data generated by programs like XACQUIR, 

* XAUTO, etc. The data file is opened as a random access file and 

* addressed similar to RDDSKB, but all from FORTRAN 

* The program calculates the velocity components, turbulence 

* intensities and Reynolds stresses for the data sets. 

* Similar to XPROCESS but used for processing for a number of different 

* test sets using batch file mode and using entirely fortran routines 

* Yaw calibration function 

* H=H4=Cos (alpha) *sqrt (V**2 . / (Vel**2 . +Ve2**2 . ) ) 

* FILES: filp (input) - data file containing the information on 

* the number of data points and the names of document file, data 

* file and output file. 

* .dat -data files (input) 

* .doc -document f iles .( input) 

* .out - output files. (output) 

* XI. CAL, X2.CAL (input) : velocity calibration file 

* AL .CAL, H .CAL (input) : yaw angle calibration file 

* Signal connection: 

* Chi : Hotwire XI Ch3 : Thermocouple 

* Ch2 : Hotwire X2 Ch4: Differential pressure 

* transducer ( 0-10mm) , PR1 

* Ch5 : Differential pressure transducer (0-10 0mm) , PR2 
*★★★★★*★★*★★★★★★★★★★★*★★★★***★★**★★★*★★**★*★* *★★★****★**★*★★*★**★*★★★★★★★ 

program BXPRO 

parameter (max=3 3000) 
integer*2 idat(max) 

integer*4 n, nch, itime, isize, delay, inc 
integer*4 ierr,nsapch, irecl, irO 
real*4 Avg (4) , Avgt (4) 
real*4 rmst (4) , sumsq(4) , rms (4) 

real*4 vrms (4) , vrmst (4) , turbt (4) ,hwvel (4) , vet (4) 
real*4 u (4) , ve (4) , ut (4) ,hwvsq(4) / turb(4) 
realM xlc (5) , x2c (5) 
real*4 ac(6) ,hc(6) 
real*4 hvoltt (4) , hvolttt (4) 
character *25 f ili (300) 
character*25 filp, fol, fo2, f ild, f ilo 
character*80 sent 
c data bitf/. 004882812/ 

data irecl/1/ 
bitf=. 004882812 

c bitf= bit factor of A/D board Ibit = bitf volts 
open (unit=8, file=' BXPRO. PAR' ) 
read (8, *) tsens, isize 
close (8) 

c open the file containing velocity calibration constants for hot-wire 
open(unit=8, file='Xl.cal' ) 
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read(8,*) (xlc(i), 1=1,5) 
write (6, *) (xlc(i) , i=l, 5) 
read(8, 5) f ilp, teal 
write ( 6 , * ) ' tcal=' , teal 
close(8) 

open (unit=8 , f ile= 'X2 . cal ' ) 
read(8, *) <x2c(i) , i=l,5)‘ 
write (6, *) (x2c (i) , i=l # 5) 
read(8, 5) filp, teal 
write (6, *) # tcal=' , teal 
close(8) 

c Open the angle calibration coefficients of X-wire 
open ( uni t=8, file='H.cal' ) 
read (8, *) (he (i) , i=l, 6) 

write (6, *) 'H. CAL coef f icients ' , (he ( i) , 1=1,6) 
close (8) 

open (unit =8 , f ile= 9 AL. cal f ) 
read(8, *) (ac (i) , i=l,6) 

write (6, *) 'AL.cal coefficients' , (ac(i) f i=l, 6) 
close (8) 

c open the master file 

open (unit =8, file= 'master . fil 9 ) 
read (8,*) ntest 
read( 8 , ' (a) ' ) filp 
close (8 ) 

inc=0 , _ - 

c open the file containing the filenames and number of 

write (6, *) filp 
open(unit=8, file=filp) 
read (8, *)nf 
do 15 i=l , nf 
15 read (8, 175 ) fili(i) 
close (8 ) 

10 inc=inc+l 

call FILDO ( f ili ( inc) , f ild, f ilo) 
write (6, *) 'reading doc. file', fild 
open(unit=8, file=fild) 
read ( 8 , * ) temp , pr 1 , pr2 , ps tat , patm, xo 
close (8) 
do 250 j=l,nch 
Avgt ( j ) = 0.0 
RMSt(j) =0.0 
vrmst ( j ) =0 . 0 
hvolttt ( j ) =0 . 
turbt ( j ) =0 . 
ut ( j ) =0 . 
vet ( j ) =0 . 

250 continue 
20 rstl=0. 
rst2=0 . 
rst3=0 . 

open(unit=9, file=filo) 

* select a block size 
if(inc.eq.l) then 

open(unit=2, f ile=f ili ( inc) , f orm=' binary access 
$ recl=irecl, status='old' , err=20) 
read ( 2 , rec=l) n, nch, it ime, delay 
write (*, 110) n,nch, itime, delay 
nblock=n/isize 
nsapch=isize/nch 

write ( 6, *) 'Reading the data file: ',fili(inc) 


files 


'direct ' , 



228 


write (*, 130)nblock, isize 
close (unit=2) 
endif 

do 800 nb = l,nblock 

c open the ADC data file and read the header 
C Read the data 

open (unit=2 , f ile=f ili (inc) , form='binary' , access= 'direct # , 

$ recl=irecl , status= ' old' , err=20 ) 
read(2, rec=l)n,nch, itime, delay 
ir0= ( (nb-1) *isize*2) +16-isize 

read(2,rec=ir0+i, iostat=ierr) (idat (i) , i=l, isize) 
c Inspect IERR flag 

write (*, 150) ierr 
write (6,80) nb, isize 
c close data file 
c call RDFILC ( ierr) 

close (unit=2) 

c Now calculate averages and RMS fluctuation levels 
do 300 j=l,nch 
Suitisq ( j ) = 0 . 
hwvel ( j ) =0 . 
hwvsq { j ) =0 . 0 
vrms ( j ) =0 . 
hvoltt ( j ) =0 . 0 
u(j)=0.0 
ve { j ) =0 . 

Avg ( j ) = 0.0 
300 continue 
rs3=0 . 

do 450 i=l,nsapch 
do 400 j=l,nch 

index = (i-l)*nch + j 

Avg ( j ) =Avg { j ) + ( idat ( index) -2048 . ) *bitf 
400 continue 

450 continue 

do 500 j=l,nch 

Avg ( j ) * Avg ( j ) /nsapch 
Avgt(j) = Avgt(j) + Avg(j) 

500 continue 

rho= (patm*13 . 6+pstat ) * . 0348432/ ( temp+273 .15) 

do 510 i=l, nsapch 
do j=l/2 

index= (i-1) *nch +j 
hvolt= (idat (index) -2048 . ) *bitf 
hvolt=hvolt*sqrt ( ( tsens-tcal) / (tsens -temp ) ) 
hvoltt (j ) =hvoltt ( j ) +hvolt 
if ( j .eq. 1) then 

hwvel ( j ) =hvolt* (hvolt* (hvolt* (hvolt^xlc (5) +xlc (4) ) + 

$ xlc (3 ) )+xlc(2) )+xlc(l) 

else 

hwvel ( j ) =hvolt* (hvolt* (hvolt* (hvolt*x2c (5 ) +x2c (4) ) + 

$ x2c (3 ) ) +x2c (2 ) ) +x2c ( 1) 

endif 

ve ( j ) =ve ( j ) +hwvel ( j ) 
enddo 

ali= (atan (hwvel (1) /hwvel (2) ) ) *57 .29578-45 . 0 
al=ali* (ali* (ali* (ali* (ali*ac (6) +ac (5) ) +ac (4) ) +ac (3) ) +ac (2) 
$ )+ac(l) 

h=ali* (ali* (ali* (ali* (ali*hc ( 6) +hc (5) ) +hc (4) ) +hc (3 ) ) +hc (2) 

$ ) +hc ( 1) 
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VTP=H*sqrt (hwvel (1) *hwvel (1) +hwvel (2) *hwvel (2) ) 
U ( 1 ) =U ( 1 ) +VTP 

u(2) =u(2) +VTP*tan (al/57 .29578) 

510 continue 


do 525 j =1 , 2 

ve ( j ) =ve ( j ) /nsapch 

hvoltt ( j ) =hvoltt ( j ) /nsapch 

U(j)=U(j) /nsapch 

vet ( j ) = vet ( j ) + ve ( j ) 

hvolttt ( j ) =hvolttt ( j ) + hvoltt ( j ) 

ut ( j ) =ut ( j ) +u ( j ) 

525 continue 

c RMS and Turbulence of U and V components . 


do 600 i=l, nsapch 
do j =1,2 

index= ( i-1 ) *nch +j 

Del=Avg ( j ) - (FLOAT (idat ( index) ) -2048.0) *bitf 
Sumsq(j) = Sumsq(j) + Del*Del 
hvolt= ( idat ( index) -2048 . ) *bitf 
hvolt=hvolt*sqrt ( (tsens-tcal) / (tsens -temp) ) 
if ( j .eq. 1) then 

hwvel ( j ) =hvolt* (hvolt* (hvolt* (hvolt*xlc (5) +xlc (4 ) ) + 
$ xlc<3) )+xlc(2) )+xlc(l) 

else 

hwvel (j ) =hvolt* (hvolt* (hvolt* (hvolt*x2c (5) +x2c (4) )+ 
$ x2c ( 3 ) ) +x2c ( 2 ) ) +x2c ( 1 ) 

endif 


c 


ali=(atan (hwvel (1) /hwvel (2) ) ) *57.29578-45.0 

al=ali* (ali* (ali*(ali* (ali*ac (6) +ac (5) )+ac(4) )+ac(3) )+ac(2) 


$ h=ali* ) (ali*(ali*(ali* (ali*hc (6) +hc (5) ) +hc (4) )+hc (3 ) ) +hc (2) 

$ ) +hc ( 1 ) 

VTP=H*sqrt (hwvel (1) *hwvel (1) +hwvel (2) *hwvel (2) ) 
do j=l, 2 

if(j.eq.l) del=u ( j ) -VTP 

if (j . eq . 2 ) del=u(j) -VTP*tan (al/57 .29578) 
hwvsq ( j ) =hwvsq ( j ) +del*del 
enddo 

Reynolds Stress uv 

rs3=rs3+(u(l) -VTP) * (u (2) -VTP*tan (al/57 .29578) ) 


600 continue 

rsl=hwvsq(l) /nsapch 
rs2=hwvsq(2) /nsapch 
rs3=rs3 /nsapch 
do 725 j=l,2 

RMS(j) = SQRT(Sumsq(j ) /nsapch) 
vrms ( j ) =SQRT (hwvsq ( j ) /nsapch) 
turb(j)= (vrms (j ) /U(l) ) *100 . 0 
VRMSt(j) = VRMSt(j) + VRMS(j) 
RMSt(j) = RMSt(j) + RMS(j) 
turbt ( j ) = turbt ( j ) + turb ( j ) 

725 continue 

rstl=rstl+rsl 
rst2=rst2+rs2 
rst3=rst3+rs3 
write (6, *) 'rho=' ,rho 
write (9, *) ' POS XI 

$ PR2 TEMP RMS1 RMS 2 ' 


X1C 


X2 


X2C 


VE1 VE2 


PR1 
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write{6, *) ' POS XI X1C X2 X2C VE1 VE2 PR1 
$ PR2 TEMP RMS1 RM S 2 ’ 

write ( 6 , 7 0 ) xo , avg ( 1 ) ,hvoltt (1) / avg(2) , hvoltt (2) ,ve(l) ,ve{2) , prl, 
$ pr2, temp, rms (1) , rms (2) 

write(9,70)xo,avg<l) ,hvoltt(l) ,avg(2) ,hvoltt (2) ,ve(l) ,ve(2) ,prl, 
$ pr2 , temp , rms ( 1 ) , rms ( 2 ) 

write(9,*) ' POS mm U m/s V m/s Urms Vrms Utur% Vtur% RSI 

$ RS2 RS3 

write (9, 75)xo,u(l) ,u{2) ,vrms(l) , vrms (2) , turb(l) ,turb{2) ,rsl,rs2, 
$ rs3 

write (6,*) ' POS mm U m/s V m/s Urms Vrms Utur% Vtur% RSI 

$ RS2 RS3 

write (6, 75)xo,u(l) ,u(2) , vrms (1) , vrms (2) , turb(l) , turb{2) , rsl, rs2, 
$ rs3 

800 continue 

do 850 j=l,nch 

Avg(j) = Avgt(j) /nblock 
RMS(j) = RMSt(j) /nblock 
850 continue 

do 875 j=l, 2 

ve(j)= vet (j ) /nblock 
VRMS(j) = VRMSt(j) /nblock 
turb(j)= turbt (j ) /nblock 
hvoltt ( j ) =hvolttt ( j ) /nblock 
u ( j ) =ut ( j ) /nblock 
875 continue 

rsl=rstl /nblock 
rs2=rst2 /nblock 
rs3=rst 3 /nblock 

c Now write the final results to screen and to disk, 
c Write to the output file 

Write (6, *) 'Final Averaged Results' 

Write (9, *) 'Final Averaged Results' 

write (6, 70) xo, avg (1) , hvoltt (1) ,avg(2) , hvoltt (2) ,ve(l) ,ve(2) ,prl, 

$ pr2, temp,rms(l) ,rms(2) 

write (9, 70) xo, avg (1) , hvoltt (1) ,avg(2) , hvoltt (2) ,ve(l) ,ve(2) ,prl, 

$ pr2, temp,rms(l) ,rms{2) 

write(6,75)xo,u(l) ,u(2) ,vrms(l) , vrms (2) , turb(l) , turb(2) ,rsl,rs2, 
$ rs3 

write(9,75)xo,u(l) ,u(2) ,vrms{l) , vrms (2) , turb(l) , turb(2) ,rsl,rs2, 
$ rs3 
close (9) 

if(inc.eq.l) then 
c Create the output filenames 
in=l 

do while(filp(in:in) .ne. ' . ' ) 
fol (in: in) =f i Ip (in: in) 
fo2 (in: in) =f i Ip (in: in) 
in=in+l 
end do 

fol ( in : in+4 ) = ' a . out ' 
fo2 (in: in+4) ='b.out' 
open (unit=7 , f ile=f ol ) 
open (unit=ll, f ile=fo2) 


§ 

write (7, *) ' POS XI 

PR2 TEMP RMS1 RMS 2 ' 

X1C 

X2 

X2C VE1 VE2 

PR1 

$ 

write(ll,*) ' POS mm U m/s 
RS2 RS3 

V m/s 

Urms 

Vrms Utur% Vtur% 

RSI 


endif 

write(7,70)xo,avg(l) , hvoltt (1) ,avg(2) , hvoltt (2) ,ve(l) ,ve(2) ,prl, 
$ pr2, temp, rms (1) ,rms(2) 

write(ll,75)xo,u(l) ,u(2) ,vrms(l) , vrms (2) , turb(l) , turb(2) ,rsl,rs2. 
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$ rs3 


c Repeat processing the next file ? 
if (inc.lt.nf) go to 10 
rewind (11) 
read (11 , 9 (a) ' ) sent 
write (6, *) sent 
do j=l,nf 

read <ll,75)xo,u(l) ,u(2) , vrms (1) , vrms (2) , turb(l) , turb(2) ,rsl, rs2. 


write(6,75)xo,u(l) ,u(2) ,vrms(l) , vrms (2) , turb(l) , turb{2) ,rsl,rs2, 
$ rs3 
enddo 
close (11) 


c 


Formats 


5 

70 

75 

80 

90 

95 


format (a26, f 9 . 6) 

format ( f 7 . 2 , 4 ( lx, f 6 * 3 ) , 2 ( lx, f 5 . 2 ) , 2 ( lx, f 6 . 3 ) , lx, f 5 . 2 , 2 ( lx, f 5 . 3 ) ) 
format (lx, f7 .2,2 (lx, f6 .2) ,2 (lx, f 5 . 3 ) ,2 (lx, f5.2) ,3 (2x, f8.3) ) 
format (' Calculated block number i3 , 2x, i5, ' size') 
format! 7 # , 7x, i3 , 2F14 . 5) 

f ormat ( 9 hotwire voltage 7 ,10x, 'velocity 7 , 10x, 7 temperature 

$, /, fl0.4, 15x, f 10 . 4 , 12x, f 8 . 3 ) 


100 format (/ 7 ADC filename: 7 \) 

101 format(a) 

110 format ( 7 n: 7 ,i6, 7 nch: 7 ,i2, 7 itime : ' , i5, 7 delay: 7 ,i5) 
130 format ( 7 There are 7 , i3 , 7 blocks of 7 ,i5, 7 words.. 7 ) 
140 format!/ 7 read block#: 7 \) 

150 format! 7 ierr: 7 ,i2) 

170. format(16i5) 

175 format (a25 , 2x, a25 , 2x, a25 ) 


stop 

end 




********************★*★★★*★★*★*★★*★★★★★★★*■***■****** 


Subroutine FILDO ( f i, f ild, f ilo) 
character*25 f i, fild, f ilo 
in=l 

do while ( f i (in : in) .ne . 7 . 7 ) 
fild(in:in)=fi (in: in) 
f ilo ! in : in) =f i (in : in) 
in=in+l 
end do 

fild ( in: in+3 ) = 7 .doc 7 
f ilo ! in: in+3 ) = 7 .out 7 
return 
end 


***************** ************ ******** ******** **************** ************ 
3. X)ata reduction program employing ensemble averaging or phase-averaging 
for processing the data obtained X-hot-f ilm/wire measurements 

***************** **★*★*****★★***+★**★*★** ************************ ******** 


* This program reduces the data generated by programs like UXACQUIR, 

* UXAUTO, etc. The data file is opened as a random access file and 

* addressed similar to RDDSKB, but all from FORTRAN 

* The program calculates the ensemble averaged velocity components, 

* turbulence intensity, Reynolds stresses and triple correlations for 


* 

★ 

* 

★ 

★ 

* 


the data sets. 

Similar to BXPRO but used for ensemble averaging . 

The program uses entirely fortran routines 

Yaw calibration function H=H4=Cos (alpha) *sqrt (V**2/ (Vel**2+Ve2* 
FILES: filp (input) - data file containing the information on 
the number of data points and the names of document file, 


2 )) 

data 
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* 

* 

★ 

★ 

★ 

★ 

* 

*• 

★ 

* 


file and output file, 

.dat -data files (input) 

.doc -document f iles .( input) 


.out - output files. 
XI. CAL, X2.CAL (input) 
AL.CAL, H .CAL (input) 
Signal connection: 

Chi : Hotwire XI Ch3 

Ch2 : Hotwire X2 Ch4 


(output) 

velocity calibration file 
yaw angle calibration file 


Thermocouple 
Differential pressure 
transducer (0-10mm) ,PR1 
Ch5 : Differential pressure transducer (0-10 Oram) , PR2 


★*★★**★★**★★**★**★★★★★★*★★********************************** 




program BUXPRO 

parameter (max=4096 ) 
integer*2 idat(max) 

integer*4 n, nch, itime, isize, delay, inc 

integer*4 ierr , nsapch, irecl , irO 

real*4 hwvel(4) 

real*4 xlc (5) , x2c (5) 

real*4 ac(6),hc(6) 

real*4 u(2048) , v{2048) , dt (2048) , dx(2048) , du (2048 ) ,dv(2048) 
real*4 rsl (2048) , rs2 (2048) , rs3 (2048) , turl (2048) 
real*4 uuu{2048) ,vw(2048) ,uuv(2048) ,wu(2048) 
character *2 5 f ili (300) 
character*25 f ilp, f ild, f ilo, fol 

c bitf= bit factor of A/D board lbit = bitf volts 
data bitf/. 004882812/ 
data irecl/1/ 

c rad= radius of the wake generator 
data rad/0.151/ 
open (uni t=8, f i le= ' BUXPRO . PAR ' ) 

c tsens=sensor operating temperature 
read (8,*) tsens 
close(8) 

c open the file containing velocity calibration constants for hot-wire 
open(unit=8, f ile= 'XI . cal ' ) 
read ( 8 , * ) (xlc ( i ) , i=l,5) 
write (6, *) (xlc (i) , i=l, 5) 
read (8, 5) f ilp, teal 
write (6, *) ' tcal=' , teal 
close (8) 

open(unit=8, file='X2.cal' ) 
read ( 8 , * ) (x2c ( i ) , i=l,5) 
write(6,*) (x2c(i), i=l,5) 
read (8, 5) f ilp, teal 
write (6, *) ' tcal= # , teal 
close (8) 

c Open the angle calibration coefficients of X-wire 
open(unit=8, files 'H. cal' ) 
read(8, *) (he ( i) , i=l,6) 


write (6, *) 'H .CAL coef f icients ' , (he ( i ) , i=l,6) 
close (8) 

open ( uni t=8, f ile= f AL. cal # ) 
read (8, *) (ac(i) , i=l, 6) 

write (6, *) 'AL.cal coefficients ' , (ac(i) , i=l, 6) 
close (8) 

c open the master file 

open(unit=8, file^master.fil' ) 
read (8,*) ntest 
read(8, ' (a) ' ) f ilp 



close (8) 
inc=0 

c open the file containing the filenames and number of files 
write (6, *) f ilp 
open(unit=8, file=filp) 
read (8, *) nf 
do 15 1=1, nf 
15 read{8,175) fili(i) 
close (8) 

10 inc=inc+l 

call FILDO(f ili (inc) , f ild, filo) 
c Create the output filenames 
in=l 

do while ( f ilo ( in : in) . ne . ' . ' ) 
fol { in : in) =f ilo ( in: in) 
in=in+l 
end do 

f ol ( in : in+4 ) = ' a . out ' 

write (6, *) 'reading doc. file', fild 

open(unit=8, file=fild) 

read{ 8, * ) temp # prl , pr2 , pstat, patm, xo 

read ( 8 , * ) rpm, nrod , nrev 

c nrod=number of rods, nrev=number of revolution 
close (8) 

c select a block size 
20 if(inc.eq.l) then 

open (unit =2, f ile=f ili (inc) , form= ' binary' ,access=' direct 
$ recl=irecl, status^ ' old' , err=20 ) 
read ( 2 , rec=l ) n, nch, itime, delay 
write (*, 110 ) n, nch, itime, delay 
isize=n/nrev 
nsapch=isize/nch 

write ( 6, *) 'Reading the data file: ',fili(inc) 
write ( *, 130) nrev, isize 
close (unit=2) 
endif 

30 do i=l,nsapch 
u(i) =0 . 
v(i) =0 . 
rsl ( i) =0 . 
rs2 ( i ) =0 . 
rs3 ( i ) =0 - 
uuu (i) =0 . 
vw(i) =0 . 
uuv(i) =0 . 
wu ( i ) =0 . 
enddo 

do 800 nb = l,nrev 

open (unit-2 , f ile=f ili ( inc) , f orm=' binary ' , access= # direct 
$ recl=irecl , status= ' old' , err=3 0 ) 
read (2 , rec=l) n, nch, itime, delay 
ir0= ( (nb-1) *isize*2)+16- isize 

read (2 , rec=irO+i , iostat=ierr ) ( idat (i) , i=l, isize) 
c Inspect IERR flag 

write (*, 150) ierr 
write (6, 80) nb, isize 
c close data file 

close (unit=2) 

open (unit=15 , f ile= 'd: \u00\uu.dat ' ) 
do 510 i=l, nsapch 
do j=l, 2 

index= ( i-1) *nch +j 
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hvolt= (idat ( index) -2048 . ) *bitf 
hvolt=hvolt*sqrt ( (tsens-tcal) / (tsens -temp) ) 
if(j.eq.l) then 

hwvel ( j ) =hvolt* (hvolt* (hvolt* (hvolt*xlc (5) +xlc (4) ) + 

$ xlc (3 ) ) +xlc (2 ) ) +xlc ( 1) 

else 

hwvel ( j ) =hvolt* (hvolt* (hvolt* (hvolt*x2c (5) +x2c (4) ) + 

$ x2c (3 ) ) +x2c (2 ) ) +x2c ( 1) 

endif 

c ve ( j ) =ve ( j ) + hwvel ( j ) 

enddo 

J ali= (atan (hwvel (1 ) /hwvel (2) ) ) *57.29578-45 . 0 

al=ali*(ali*(ali* (ali* <ali*ac (6) +ac (5) ) +ac (4) ) +ac (3 ) ) +ac (2) 
$ ) +ac (1) 

h=ali* (ali* (ali* (ali* (ali*hc (6) +hc (5) ) +hc (4) ) +hc (3 ) ) +hc (2) 

$ ) +hc (1) 

VTP=H*sqrt (hwvel (1) *hwvel (1) + hwvel (2) *hwvel (2) ) 

* Calculate the sum for the ensemble average of U and V velocities 
U ( i ) =U ( i ) +VTP 

V(i) =V(i) +VTP*tan (al/ 57 . 29578) 

write ( 15, ' (3 (lx, f5.2) ) ' ) VTP,VTP*tan (al/57 .29578) , 

$ VTP*VTP*tan (al/57. 29578) 

510 continue 
close(15) 
pause 

800 continue 

do i=l,nsapch 
u(i) =u (i) /nrev 
v(i) =v(i) /nrev 
enddo 
c 

c Calculate the ensemble RMS AND SHEAR STRESS and Triple correlation 
60 write (6, *) 'Opening the data file' 
do 900 nb=l,nrev 

open (unit =2, file=f ili (inc) , form= 'binary ' , access^' direct ' , 

$ recl=irecl, status='old' , err=60) 
read ( 2 , rec=l ) n, nch, i t ime , delay 
ir0=( (nb-1) *isize*2) +16-isize 

read(2,rec=ir0+i # iostat=ierr) (idat (i) , i=l , isize) 
c Inspect I ERR flag 

write (*, 150) ierr 
write(6 r 80) nb, isize 
c close data file 

close (unit=2 ) 

do 600 i=l,nsapch 
do j=l,2 

index=(i-l) *nch +j 
hvolt= ( idat ( index) -2048 . ) *bitf 
hvolt=hvolt*sqrt ( (tsens-tcal) / (tsens -temp) ) 
i f ( j . eq . 1 ) then 

hwvel ( j ) =hvolt* (hvolt* (hvolt* (hvolt *xlc ( 5) +xlc (4) ) + 

$ xlc (3) )+xlc(2) )+xlc(l) 

else 

hwvel ( j ) =hvolt* (hvolt* (hvolt* (hvolt *x2c (5) +x2c (4) ) + 

$ x2c (3 ) ) +x2c (2 ) ) +x2c ( 1 ) 

endif 
enddo 

ali=(atan(hwvel(l) /hwvel (2) ) ) *57.29578-45.0 
al=ali* (ali* (ali* (ali* (ali*ac (6) +ac (5) ) +ac (4) ) +ac (3 ) ) +ac (2) 
) +ac (1) 

h=ali* (ali* (ali* (ali* (ali*hc (6) +hc (5) )+hc(4) )+hc(3) )+hc(2) 


$ 
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c 


c 

c 


c 


VTP=H*sqrt (hwvel (1) *hwvel (1) +hwvel (2) *hwvel (2) ) 
du(i)=VTP-u(i) 

dv( i) =VTP* tan (al/ 57 .29578) -v( i) 

Reynolds Normal stress 

rsl (i) =rsl (i) +du (i) *du (i) 
rs2 ( i ) =rs2 ( i ) +dv ( i ) *dv ( i ) 

Reynolds Shear Stress uv 

rs3 ( i ) =rs3 ( i ) +du ( i ) *dv ( i ) 

Triple correlations 

uuu ( i ) =uuu ( i ) +du ( i ) *du ( i ) *du ( i ) 
vw { i ) =wv ( i ) +dv ( i ) *dv ( i ) *dv(i) 
uuv(i) =uuv ( i ) +du ( i ) *du ( i ) *dv(i) 
wu ( i ) =wu ( i ) +dv ( i ) *dv ( i ) *du ( i ) 

600 continue 
900 continue 

delt=itime/1000 . 

dx=v.dt=r*omega.dt=r*2*pi*rpm/60 .dt; 2*pi/60=0 . 104719755 
delx=rad*0 . 104719755*rpm*delt 
do i=l,nsapch 

rsl ( i) =rsl { i) /nrev 

rs2 ( i ) =rs2 ( i ) /nrev 

rs3 (i) =rs3 (i) /nrev 

turl ( i) =sqrt (rsl (i) ) *100./u(i) 

dt ( i) = ( i-1) *delt 

dx(i) = (i-1) *delx 

uuu ( i ) =uuu ( i ) /nrev 

vw(i) =vw( i) /nrev 

uuv ( i ) =uuv ( i ) / nrev 

wu ( i ) =wu ( i ) /nrev 


c 


enddo 

Write to the output file 
open (unit=9, file=fol) 

write(9,*)' DT ms DY mm U m/s V m/s Utur% RSI RS2 

$uuu vw uuv wu ' 

write (6,*) ' DT ms DY mm U m/s V m/s Utur% RSI RS2 

$uuu vw uuv wu ' 

do i=l,nsapch 

write(6,75)dt(i) , dx(i) ,u(i) ,v(i) , turl ( i) , rsl (l) , rs2 ( 
$ , rs3 ( i ) , uuu ( i ) , vw ( i ) , uuv ( i ) , wu ( i ) 

write (9 , 75) dt ( i ) ,dx(i),u(i),v(i) , turl ( i) , rsl ( l) , rs2 { 
$ , rs3 (i) , uuu ( i ) ,vw(i) ,uuv(i) ,wu(i) 


i) 

i) 


RS3 

RS3 


c 

c 


enddo 

close(9) 

Repeat processing the next file ? 

if (inc.lt.nf) go to 10 
Formats 

5 format (a26, f 9 . 6) 

75 format { f 7 . 3 , lx, f 5 . 1 , lx, f 5 . 2 , lx, f 6 . 3 , lx, f 5 . 2 , 2 ( lx, f 5 . 3 ) 


lx, f 6 . 3 


$, lx, f7 . 4 , 3 ( lx, f 6 .3 ) ) 

80 format ( '+Revolution no: , ,i3,2x,i5, / size') 

90 format( # ' , 7x, i3 , 2F14 . 5) 

95 f ormat ( ' hotwire voltage ' , 10x, 'velocity ' , lOx, 
$, / , fl0.4, 15x, flO .4, 12x, f 8 .3 ) 

100 format ( / ' ADC filename: '\) 

101 format (a) 

110 format ( ' n:',i7,' nch:',i2,' itime:',i5,' delay: 
130 format (' There are ' , i3 , ' blocks of ',i5,' words 
140 f ormat (/' read block# :' \) 

150 format ( ' +ierr : ' , i2) 

170 format(16i5) 

175 format (a25,2x,a25,2x,a25) 


' temperature ' 


,i5) 
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stop 

end 


*★★★★**★*★★*★*★★★**★***★*★★★*****★*★*******★*★*★********* ★★★★★★★★ ★**★*★★★ 


4. Data analysis program for staady wake 

*★**★★★★★★★★★★★*★**★★ ★★**★★***★★**★**★*★★ ★★★★★★ 


★ 

★ 

* 

★ 

★ 

★ 

★ 

★ 

★ 

★ 

* 

★ 

★ 

★ 

★ 

★ 


This program calculates the following quantities from the output files 
generated by program XPROCESS .FOR, BXPRO.FOR, etc. 
ulm = maximum of wake defect velocity 

ul/ulm = wake defect velocity /maximum wake defect velocity 
yc = location of wake centerline 

b = inegral (ul/ulm) / ulm 

theta = momentum thickness 

prl = static pressure 

uv = average of instantaneous velocity correlation 

External Subroutines. 

csakm - Gives the spline coefficients of the data points. 

CSS CV - Gives the spline coefficients of the data points by smoothing 
CSITG - Uses the spline coeffs. to calculate the integral. 

IWKIN - Assigns larger workspace for the program. 

CSVAL - Gives interpolated values using the spline coeffs. 

LSFIT - Fits the potential flow with a first order polynomial. 


★*★**★★★★★**★*★★★★**★★★★★*★★★ * ★★***★★*★★★*** *★★**★★★★★★★★★★★★* ★ ★ 


program SN100 

real *8 acoeff (100) ,var(20) , coeff (20) 
real*4 x(140) ,y<140) ,pr (140) 
common /worksp/ rwksp 
real rwksp (70000) 
dimension break0(140) 
dimension ccoef 0 (4, 140) 

dimension yo(150) ,u(150) ,v(150) ,urms (150) ,vrms(150) , utur (150) 
dimension vtur (150),rsl(150), rs2 (150) , rs3 (150 ) ,prl (150) , pr2 (150) 
dimension temp (150), f2 (150), uv(150 ) ,ul ( 150) , cuv(150) , uo ( 150 ) 
character *30 fil, fi2, fi3, fol, fo2, fdl 
external csakm, IWKIN, CSITG, CSVAL, LSFIT 
call IWKIN(90000) 

* 

* Read the angle of the traversing axis from inlet. 

write (*,*) 'Enter the angle of traversing axis (Inlet is Odeg) ?' 
read ( 5 , * ) ag 

* Read the input file name fil 

write(*,*) 'Input the name of the file to analyze ....A. DAT' 
read ( 5 , ' (a) ') fil 

* Generate the second input file name fi2, related document file fdl and 

* output files fol and fo2 

in=l 

do while(fil(in:in) .ne. ' . ' ) 
f i2 ( in: in) =f il (in: in) 
f i3 (in: in) =f il (in: in) 
fdl (in: in) =f il ( in: in) 
fol (in: in) =f il (in: in) 
fo2 (in: in) =f il (in: in) 
in=in+l 
end do 

f i2 ( in-1 : in+5) = 'b.dat ' 

fi3 (in-l:in+6) = 'bl.dat' 

fdl ( in-1 : in+7 ) = ' 001 .doc ' 

fol (in-1 : in+5) = 'c .out ' 

fo2 (in-1: in+5) ='d.out' 

write (6, 100) fil, fi2, fdl, fol, fo2 

pause 'Press return to continue' 
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* Open and read the data in the document file "fdl" 

open(unit=8, file=fdl) 

read { 8 , * ) te , pi , p2 , ps ta t , patm 

write ( 6 , * ) te, pi , p2 , pstat , patm 

close(8) 

* Open and read the data inthe first input file " f il " ( . - -a . dat) 

open (unit =8, f ile=f il) 
i=l 

do while ( .not .eof (8) ) 

read ( 8 , 7 0 ) yo ( i ) , avg, hvoltt , avg, hvoltt, ve, ve,prl ( i) , 

$ pr2(i) , temp(i) ,rms,rms 

c write ( 6 , 70 ) yo (i) , avg, hvoltt, avg, hvoltt, ve, ve, prl (l) , 

c $ pr 2 ( i ) , temp ( i ) , rms , rms 
i=i+l 
end do 

* Read the direction of resultant velocity vector from " f i3 " ( . . .b.dat) 

open (unit =8, file=fi3) 
read(8, * ) alpha 
write ( 6 , *) ' alpha = alpha 

eta=alpha/57 .2957 

* Open and read the data in the second input file " fi2 .b.dat) 

open (unit =8, file=fi2) 
i=l 

do while ( .not .eof (8) ) 

read ( 8 , * ) yo ( i ) ,uo(i) ,v(i) ,urms(i) ,vrms(i) ,utur<i) ,vtur(i) , 

$ rsl(i) ,rs2(i) ,rs3(i) 

* Convert the u velocity in s-direction 

u(i) =uo (i) *cos (eta)+v(i) *sin(eta) 

* write (6 , 75)yo { i) r uo(i),v(i) ,urms(i) ,vrms(i) ,utur(i) ,vtur(i) , 

* $ rsl (i) , rs2 (i) , rs3 (i) 

i=i+l 
end do 
n=i-l 
close (8) 

* 

* Input the boundary coordinates for fitting the potential flow and 

* arrange them in ascending order, y4>y3>y2>yl , 

write (6, *) ' Input Y-coord boundaries for fitting potential flow (mm 

*.) 5 ' 

write (6, *) 'First Y-coord for convex side?' 

read (5, *)yl 

yt=yl 

write (6, *) 'Second Y-coord for convex side?' 
read ( 5 , * ) y2 
if (y2 . It .yl) then 
yl=y2 
y2 =yt 
endif 

write (6 f *) 'First Y-coord for concave side?' 

read(5, *)y3 

yt=y3 

write (6, *) 'Second Y-coord for concave side?' 
read ( 5 , * ) y4 
if (y4.lt. y3) then 
y3 =y4 
y4 =yt 

endif _ * . * , , 

Write {6, *) 'yl=' ,yl, 'mm y 2 =' ,y2, 'mm y3=' ,y3, 'mm y4=' ,y4, mm 

* Calculation of the potential flow fit. The data points for the 
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potential 

* flow will be stored in x(j),y(j) 

j=0 

do i=l,n 

if ( (yo(i) .ge.yl) .and. (yo(i) .le.y2) ) then 
j=j + l 

x(j)= yo (i) 
y(j)= u ( i) 
pr ( j ) =pr2 ( i ) 
endif 

if { (yo (i) .ge.y3) .and. (yo ( i) . Ie.y4) ) then 
j=j + l 

x(j)= yo (i) 
y ( j ) = u(i) 
pr ( j ) =pr2 ( i) 
endif 
enddo 
np= j 

* Fitting the potential flow, npol=degree of polynomial 

* np=number of data points for potential flow fit 

Write ( 6, *) 'Degree of polynomial for potential flow? 1, ,5' 

read (5,*) npol 

call LSFIT(np,x,y, npol , acoef f , var, coef f , ks) 
do i=npol+2,ll 
coef f (i) =0 . 0 
enddo 

Write (6, *) ' Polynomial coefficients for potential flow:', (coeff(i), 
$ i=l,npol+l) 

* Fit the u velocity data with cubic spline 

Write ( 6, *) 'Enter your choice of interpolation: (l)Cubic spline 
$ (2) Cubic spline with smoothing' 
read (5, *) ii 
if(ii.eq.l) then 
call CSAKM(n,yo, u, breakO, ccoefO) 
else 

iequal=0 

if (n. It. 20) i equal =2 

call CSSCV(n # yo,u, iequal, breakO , ccoef 0 ) 
endif 

* Locate the wake centerline at the maximum of ul <ul=Up-u) . Also ulm. 

Write ( 6, *) 'Enter your choice of locating ulm: (1) through program 
$(2)manual input from ulm curve' 
read (5, *) ii 
if(ii.eq.l) then 

call WCENT(n, coef f , breakO , ccoef 0 ,y2,y3 ,yc, ulm) 
else 

Write (6, *) 'ulm from the curve?' 
read(5, *)ulm 

write (6, *) 'ulm location radially from convex wall?' 
read ( 5 , * ) yc 
endif 

* Locate the wake center as the point where uv=0. 

Write (6,*) 'Want to locate wake center from total pressure? (1) Yes 

$ (2) No' 

read (5, *) ip 
if(ip.eq.l) then 

call PTCENTtyc^p^yo, pr2, n,np, rye) 
endif 

write (6, *) yc, rye, ulm 

Calculate ul and f2 (function for momentum thickness) 

* at measuring locations. 
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do i=l,n 

up=yo (i) * (yo (i) * (yo(i) * (yo (i) * (yo(i) *coeff (6)+coeff (5) )+coeff (4) 
$ )+coeff (3) )+coeff (2) )+coeff (1) 
xt=yo ( i ) 

c ul(i) =up-CSVAL (xt, n-1 , breakO , ccoef 0) 

ul (i) =up-u { i ) 
f2(i)=u(i)*ul(i) 
enddo 

upc=yc* (yc* (yc* (yc* (yc*coeff (6) +coeff (5) )+coeff (4) 

$ )+coeff (3) )+coeff (2) )+coeff (1) 

★ 

* Locating the wake width from Total pressure profile 

derrl= . 01 
derr2= . 01 
npoll=l 

50 call WLOC (yl,y2 ,y3 ,y4,yc, x,pr,yo,pr2, n, np, ylr, yur, derrl, derr2, 
$npoll) 

* calculate momentum thickness and b 

call BTHETA(ylr ,yc f yur , f 2 , coef f , breakO , ccoef 0 , bl , bu, br, thel, theu, 
$ther / ulm, n,yo, npol) 

write ( 6 , * ) 'yl yu w b theta' 

write (6, ' (5 (lx, f7 .3) ) ' )ylr , yur , yur-ylr, br, ther 

write (6, *) 'The present convergence factors for locating the edge 
o 

$f wake from Ptot were: convex side- ' , derrl, concave side-',derr2 
Write (6, 350) 
read (5, *) ii 
if(ii.eq.l) then 

write (6, *) 'Enter the new convergence factors' 
read (5, *) derrl ,derr2 
go to 50 
endif 

* calculate the wake width from u-profile 

derrl= . 01 
derr2=. 01 

60 call WLOC (yl,y2 ,y3 ,y4,yc,x,y,yo,u, n, np,yl,yu, derrl, derr2 , npol) 

* calculate momentum thickness and b 

call BTHETA (yl , yc, yu, f2 , coef f , breakO, ccoef 0,bl,bu,b, thel, theu, 
$theta,ulm, n,yo, npol) 

write (6, *) ' ylr yur wr br the tar' 

write ( 6 , ' (5<lx, f7.3) ) ') ylr , yur , yur-ylr, br, ther 
write ( 6 , * ) ' yl yu w b theta' 

write (6, ' (5 ( lx, f7 .3 ) ) ' )yl,yu,yu-yl,b, theta 

write (6, *) 'The present convergence factors for locating the edge 
$of wake from u were: convex side- ', derrl, concave side- ',derr2 
Write (6,350) 
read (5, *) ii 
if(ii.eq.l) then 

write (6, *) 'Enter the new convergence factors' 
read (5, *) derrl, derr2 
go to 60 
endif 
w=yu-yl 
wl=yc-yl 
wu=yu-yc 


* Calculate static pressure distribution at measuring location 
rho= (patm*13 . 55+pstat ) * . 0348432/ ( te+273 .15) 
write ( 6 , * ) ' rho= ' , rho 
do i=l,n 
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pr2 (i) =pr2 (i) - (0 . 5*rho* (uo (i) *uo (i)+v(i) *v( i) ) ) / (9 .81*13 . 55) 
enddo 

★ 

* Calculate total impulse =Uaverage .Vaverage+ (u'v' )bar 

do i=l,n 

uv(i) = uo (i) *v(i) +rs3 (i) 
enddo 

★ 

* Calculate correlation coefficient (u'v' )bar/ (urms .vrms) 

do i=l,n 

cuv(i) = -rs3 (i) / (urms(i) *vrms(i) ) 
enddo 

* 

* Open the output files 

open(unit=9, file=fol, status=' unknown' ) 


Write ( 6, *) 'ANG yc 

$ b thel theu the' 

ulm 

upc 

ulm.b 

ulm.b/upc 

bl 

bu 

Write(9, *) 'ANG yc 

$ b thel theu the' 

ulm 

upc 

ulm.b 

ulm.b/upc 

bl 

bu 


write(6, 150)ag,yc,ulm,upc,ulm*b,ulm*b/upc,bl,bu,b, thel, theu, theta 
write(9, 150)ag,yc,ulm,upc,ulm*b,ulm*b/upc,bl,bu,b, thel, theu, theta 
Write (6, *) 'ANG rye wl wu w' 

Write (9, *) 'ANG rye wl wu w' 

write (6, 250) ag, rye, wl, wu,w 
if (ip.eq. 1) write(9,250)ag,ryc,wl,wu,w 
close (9) 

pause 'Press Enter to continue' 

open (unit=10, f ile=fo2 , s tatus=' unknown ' ) 

write (6, *) 'POS.mm (Yc-Y) /b ul ul/ulm pstat UV Corr. ' 

write(10, *) 'POS.mm (Yc-Y)/b ul ul/ulm pstat UV Corr.' 

do i=l,n 

write (6, 300 )yo (i) , (yc-yo(i) ) /b,ul(i) ,ul(i) /ulm,pr2 (i) ,uv{i) , 

$ cuv ( i ) 

write (10, 300) yo(i) , (yc-yo(i) ) /b,ul(i) ,ul(i) /ulm,pr2 (i) ,uv(i) , 

$ cuv ( i ) 
enddo 
close(10) 

* Formats 

70 format (f7 .2,4(lx,f6.3) ,2(lx,f5.2) ,2 (lx, f 6.3) , lx, f5.2,2(lx,f5.3)) 
75 format (lx, f 7 .2,2 (lx, f 6 .2) , 2 (lx, f 5 .3) , 2 (lx, f 5 .2) , 3 (2x, f8.3) ) 

100 format(' Input data files : ' ,a25,2x,a25, 

* /, ' Input document files : ',a25, 

* /, ' Output files : ' ,a25,2x,a25, 

* /, ' WARNING : Input, files should exist.',//) 

150 format < lx, f3 .0, lx, f7 .3 , lx, f5 .3 , lx, f5.2, 2 (lx, f 6 .3 ) , 3 (lx, f 6 .2) , 

$3 (lx, f5.3) ) 

250 format ( lx, f3 . 0 , lx, f7 .3 , 3 (lx, f 6 .2) ) 

300 format (2 (lx, f7 .3) , 2 (lx, f5 .3) , lx, f6 .3, lx, f7 .3, lx, f 6.3) 

350 f ormat ( ' Enter (1): To repeat with another convergence factor',/,' 
$ (2) : To continue') 

stop 
end 

★**★★**★★★**★★★★★★****★★★★*★**★★★★★★**★*★★**★**★*★*★★***★*****★******** 
subroutine WCENT ( n , coef f , breakO , ccoef 0 , y2 , y3 , yc , ulm) 

* This subroutine determines the center of the wake, defined as the 

* location where ul is maximum. 

* Input Arguments : 

* n = number of data points 

* coeff = coefficient of the polynomial fit for potential flow 

* breakO= break points for the piecewise cubic splines 
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* ccoef 0= local coefficient of the cubic pieces 

* y2,y3 = yc , the wake center is located in between y2 and y3 

* Output Arguments : 

* yc = wake center 

* ulm = maximum value of wake defect velocity, ul=Up-u 

* ★★★★★★★★★★★★★★★★★★★★•*************** > ***' ifc, ***** , * ,i * r ** ,, * r ***'*‘ , ****'* r ********* : * r *** 

real*8 coeff(20) 
dimension break0(150) 
dimension ccoef 0 (4 , 150) 
y=y2 
ulm= . 0 

do while (abs (y-y3 ) .gt . . 025) 
y=y+ 0.05 

up=y* (y* (y* (y* (y*coef f (6) +coef f (5) ) +coef f (4) ) + 

$ coeff (3) )+coeff (2) )+coeff (1) 

vu=up-CSVAL (y , n- 1 , breakO , ccoef 0 ) 
if (vu.gt .ulm) then 
ulm=vu 
yc=y 
endif 
enddo 

write (6, *) 'Wake center=' ,yc, 'mm' , ' Max. wake def ect=' , ulm, 'm/s 

return 

end 




****************************************** 


subroutine PTCENT<yc / x, pr ,yo, pr2 , n, np, rye) 

* This subroutine determines the center of the wake, defined as the 

* location of minimum total pressure 


Input Arguments : 

n = number of data points 

np = number of data points in the potential flow region 

yo,pr2= coordinates of data (position, Ptotal ) 

x,pr = coordinates of data (position, Ptotal) in the potential flow 
region 

yc = wake center defined by ulm location 

* Output Arguments : 

* rye = wake center defined by the point where total pressure is 

* minimum 

★a************************************************************** 


★ 

★ 

★ 

★ 

★ 

★ 

★ 


dimension yo ( 150 ) , pr2 ( 150 ) , breakl ( 150 ) 
dimension ccoef 1 (4, 150) 
real*4 x ( 150 ) , pr (150 ) 

real*8 acoeff (100) , var (20) ,coefp(20) 


* Do line fit through the potential flow region 

Write (6 f *) 'Degree of polynomial for total pressure in potential 

$flow region? 1, ,3' 

read (5,*) npol 

call LSFIT(np, x,pr, npol, acoeff , var, coefp, ks) 
do i=npol+2,ll 
coefp (i) =0.0 
enddo 

* Do a cubic spline smoothing fit through the total pressure data 

i equal =0 

if (n . It . 20 ) iequal=2 

write (6, *) 'Cubic Spline smoothing of total pressure data... 

call CSSCV (n , yo , pr2 , i equal , breakl , ccoef 1) 

y=yc-10 . 

y3=yc+10 . 

plm=0 . 
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do while (abs (y-y3 ) .gt . . 025) 
y=y+0 . 05 

up=y* (y* (y*coefp(4) +coefp (3 ) ) +coefp (2) ) +coefp (1) 
vu=up-CSVAL (y, n-l,breakl , ccoef 1) 
if (vu .gt .plm) then 
plm=vu 
ryc=y 
endif 
enddo 

write (6, *) 'Wake center from total pressures' , rye, 'mm' 

return 

end 

subroutine WLOC (yl , y2 , y3 , y4 , yc , x, urn, yo , urms , n , np , ylr , yur , derr 1 , 
$derr2,npol) 

* This subroutine locates the edge of the wake 

dimension break2(150) 
dimension ccoef2 (4, 150 ) 
dimension yo ( 150 ), urms ( 150 ) 
real *8 acoef f (100) , var (20 ) , cf (20) 
real*4 x( 150 ) , urm( 150) 
logical*l itype 

call LSFIT(np / x,urm,npol,acoeff , var, cf ,ks) 
do i=npol+2,ll 
cf (i)=0.0 
enddo 

* Fit the measured urms data with cubic spline 

call CSAKM(n,yo,urms / break2,ccoef2) 

write (6, *) 'Calculating the edge of the wake ' 

do j=l,2 

i type=. true, 
if ( j .eq. 1) then 
high=yc 

c rlow = (yl+y2)*.5 

rlow = y2-5 . 
derr=derrl 
else 

rlow = yc 

c high = (y3+y4)*.5 

high = y3+5. 
derr=derr2 
endif 
i=0 

do while (itype) 
i=i+l 

if ( j .eq. 1) rlow=rlow+ . 05 
if (j .eq.2) high=high- . 05 

* Area under u from rlow to high 

au=CSITG (rlow, high, n-1 , break2 , ccoef 2 ) 

* Area under potential velocity up from rlow to high =aup2-aupl 

aupl=asum(rlow, cf , npol) 
aup2=asum(high, cf , npol) 
aup = aup2-aupl 
df =abs ( aup -au ) 
if ( i .eq. 1) df2=df 
if (abs(l-df/df2) .gt.derr) 
enddo 

if ( j .eq. 1) ylr=rlow 
if (j -eq.2) yur=high 
enddo 
return 
end 


itype=. false. 
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******* ** ***★***★★★★★★*★★***★**★★★**★★****★************* *************** 
subroutine BTHETA (y 1 , yc , yu , f 2 , coe f f , breakO , ccoe f 0 , bl , bu , b , the 1 , 
$theu, theta, ulm, n,yo, npol) 

* This subroutine calculate momentum thickness theta and b 

* theta=( (integral (ul*u.dy ) ) /upc**2 . ) ;b=bl+bu (b= ( integral (udy) /ulm 

real*8 coeff(20) 

dimension breakO ( 150 ) , break3 ( 150 ) , f2 ( 150) ,yo ( 150 ) 

dimension ccoef 0 (4, 150 ) , ccoef3 (4 # 150 ) 

upc=yc* (yc* (yc* (yc* (yc*coef f ( 6) +coef f (5) ) +coef f (4) ) + 

$ coef f (3 ) ) +coef f (2 ) ) +coef f (1) 
aupl=asum(yl, coef f , npol) 
aup2=asum(yc, coef f , npol) 
aup3=asum(yu, coef f, npol) 
aupl=aup2-aupl 

aul = CSITG (yl , yc, n-1 , breakO , ccoef 0 ) 
aull= aupl-aul 
aupu=aup3 -aup2 

auu = CSITG(yc,yu, n-1, breakO, ccoef 0) 

aulu= aupu-auu 

aul = aulu+aull 

bl = aull/ulm 

bu = aulu/ulm 

b = bl+bu 

* write (6, *) 'bl=' ,bl, 'mm bu=' ,bu, 'ram b=' ,b, 'mm' 

* Momentum thickness ; Integral of f2 /upc*upc 

call CSAKM(n, yo, f 2 , break3 , ccoef 3 ) 
thel=CSITG (yl , yc , n-1 , break3 , ccoef 3 ) 
thel=thel/ (upc*upc) 

theu=CSITG (yc , yu, n-1 , break3 , ccoef 3 ) 
theu=theu/ (upc*upc) 
t he t a = the 1 + theu 

* write(6, *) ' thel=' , thel, 'mm theu= ' , theu, 'mm theta= theta 

* $, 'mm' 
return 
end 

***************************************** ******************************** 

Function asum(x, cf f , npol) . _ _ - 

* asum is the value of the integral at x of a polynomial of degree npol 

real*8 cff(20) 
do i=npol+2,ll 
cff (i)=0.0 
enddo 

asum=x* (x*(x* (x* (x* (x*cff (6) /6.+cff (5) /5 . ) +cf f (4) /4 . ) +cf f (3) /3 . )+ 
$cff (2)/2.)+cff (1) ) 
return 
end 


****************★**★*★*★*★*★★★★★★ **************************************** 

5 „ Data analysis program to obtain the quantities in curvilinear 
coordinate system for steady wake 

**★*★*★★*** ****************** ******************************************** 


* This program calculates the velocities and Reynolds stresses in S N 

* coordinates. The S direction is along the line passing through ulm. 

* ulm = maximum of wake defect velocity 

* ul/ulm = wake defect velocity /maximum wake defect velocity 

* yc = location of wake centerline 

* b = inegral (ul/ulm) / ulm 

* theta = momentum thickness 

* prl = static pressure 

* uv = average of instantaneous velocity correlation 



244 


★ 

* External Subroutines. 

* CSAKM - Gives the spline coefficients of the data points. 

* CSSCV - Gives the spline coefficients of the data points by smoothing 

* CSITG - Uses the spline coeffs. to calculate the integral. 

* IWKIN - Assigns larger workspace for the program. 

* CSVAL - Gives interpolated values using the spline coeffs. 
★**★★★★**★★★★★**★***★★***★***★★*★★★*★**★**★*★**★★**★********************* 

program SN120 

common /worksp/ rwksp 
real rwksp(70000) 

dimension yo(150) ,u(150) ,v(150) ,urms(150) / vrms (150) ,utur (150) 
dimension vtur (150 ) , rsl ( 150 ) , rs2 (150 ) , rs3 (150 ) , prl (150) ,pr2(150) 
dimension temp (150) ,uv(150) ,ul(150) , cuv(150) 

dimension us ( 150) , vs (150 ) , uls (150) ,rsls(150)/rs2s(150) ,rs3s(150) 
character *30 fil,fi2,fi3,fi5, fol, fo2, fo3 , fdl, f i6 

* The locus of ulm is curve fitted w.r.t this coordinate. 

external CSAKM, IWKIN, CSITG, CSVAL, LSFIT 
call IWKIN (70000 ) 

* Read the input file name fil 

write(*,*) 'Input the name of the file to analyze ....A. DAT' 
read(5, ' (a) ' ) fil 

c write (6,*) 'Input the name of file containing ulm locations' 

c read(5, ' (a) ' ) f i4 

* Generate the second input file name fi2, related document file fdl and 

* output files fol and fo2 

in=l 

do while(fil(in:in) .ne. ' . ' ) 
f i2 ( in : in) =fil (in: in) 
f i3 (in: in) =f il (in: in) 
f i5 (in: in) =f il (in: in) 
f i6 ( in: in) =f il (in: in) 
fdl ( in: in) =f il (in: in) 
fol (in: in) =f il (in: in) 
fo2 (in: in) =f il (in: in) 
fo3 (in: in) =f il (in: in) 
in=in+l 
end do 

f i2 ( in-1 : in+5) = 'b.dat ' 

f i3 ( in-1 : in+5) ='d.dat ' 

fi5 (in-1 : in+5) ='c .dat' 

f i6 ( in-1 : in+5) = 'bl .dat ' 

fdl ( in-1 :in+7)=' 001. doc' 

fol (in-1 : in+5) ='e .out' 

f o2 ( in-1 : in+5) = ' f .out ' 

fo3 ( in-1 : in+5) ='g. out' 

write (6, 100) fil, fi2, fdl, fol, fo2, fo3 

pause 'Press return to continue' 

* Open and read the data in the document file "fdl" 

open (unit=8, f ile=fdl) 
read ( 8 , * ) te , pi , p2 , pstat , patm 
write ( 6 , * ) te , pi , p2 , pstat , patm 
close (8) 

* Open and read the data inthe first input file "f il" ( . . .a. dat) 

open(unit=8, file=f il) 
i = l 

do while ( .not .eof (8) ) 

read (8, *)yo (i) , avg, hvoltt, avg,hvoltt, ve, ve,prl (i) , 

$ pr2 ( i ) , temp ( i ) , rms , rms 

write (6, 70)yo(i) , avg, hvoltt, avg, hvoltt, ve, ve, prl ( i ) , 



* o 


245 


$ pr2 (i) , temp (i) , rms, rms 
i=i+l 


★ 


* 

* 


★ 


★ 


* 


end do 
close (8) 

Open and read the data in the second input file "f i2" ( . . .b.dat) 
open (unit=8, f ile=fi2) 
i=l 

do while ( .not . eof (8) ) 

read ( 8 , * ) yo ( i ) ,u(i),v(i) ,urms(i) ,vrms(i) ,utur(i) ,vtur(i) , 

$ rsl ( i ) , rs2 ( i) , rs3 ( i) 

write (6,75) yo(i) ,u(i) ,v(i) ,urms(i) , vrms ( i) , utur (i) ,vtur(i) , 

$ rsl ( i) , rs2 ( i) , rs3 ( i) 
i=i+l 
end do 
n=i-l 
close(8) 

Open and read the data in the input file “f i3" ( . • -d-dat) 
open (unit =8, f ile=f i3 ) 
i = l 

do while ( .not .eof (8) ) 

read ( 8 , * ) yo ( i ) ,aaa,ul(i) , bbb, bob, ccc, ddd 
write ( 6 , 110 )yo ( i) ,aaa,ul(i) , bbb, bob, ccc, ddd 

i=i+l 
end do 
n=i-l 

close ( 8 ) . , „ ^ . 

Open and read the data in the input file "fi5" containing ulm etc for 
the present location 

open (unit=8, f ile=f i5) 

read ( 8 , * ) agp , yep , ulmp , upep , ulmbp , ulmbcp , blp , bup , bp , the lp , theup , 

$ thetap 

write (6, 120) agp, yep, u Imp, upep, ulmbp, ulmbcp, blp, bup, bp, thelp, 

$ theup, thetap 
close (8) 

Read the direction of resultant velocity vector from " f i3 " ( . . .bl .dat) 
open (unit =8, f ile=f i6) 
read(8, *) eta 
write ( 6, * ) ' eta= ' , eta 
eta=eta/57 .2957 
close(8) 

pause 'Enter to continue...' 


PAUSE' PRESS ENTER TO CONTINUE' 
do i=l,n 

us (i) =u(i) *cos (eta) +v(i) *sin(eta) 
vs (i) =v(i) *cos (eta) -u(i) *sin(eta) 
uls (i) =ul (i) *cos (eta) 

rsls ( i) =rsl ( i ) *cos (eta) *cos (eta)+rs2 (i) *sin(eta) * 

$ sin (eta) +rs3 (i) *sin(2 . *eta) 

rs2s ( i ) =rsl ( i) *sin (eta) *sin (eta) +rs2 ( i) ^cos(eta) * 

$ cos (eta) -rs3 (i) *sin (2 . *eta) 

rs3s(i) = (rs2 (i)-rsl(i) ) * . 5*sin (2 . *eta) +rs3 ( i) *cos (2 . *eta) 
uv( i) = us ( i) *vs ( i) +rs3s (i) 
enddo 

b = ulmbp /ulmp 

ulm=ulmp 

ulm2=ulm*ulm 

upc=upcp 

bl= blp 

bu= bup 

thel=thelp 

theu= theup 
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theta=thetap 

* Calculate static pressure distribution at measuring location 

rho= (patm*13 . 55+pstat) * . 0348432/ (te+273 . 15) 
write ( 6 , * ) ' rho= ' , rho 
do 1=1, n 

pr2 ( i ) =pr2 (i) -(0 .5*rho* <u(i) *u(i)+v(i) *v(i) ) )/ (9.81*13 .55) 
enddo 

* Calculate correlation coefficient (u'v' )bar/ (urms .vrms) 

do 1=1, n 

cuv(i) = ( -1 . *rs3s ( i) ) / (sqrt (rsls (i) *rs2s ( i) ) ) 
enddo 

* 

pause 'Press Enter to continue' 

* Open the output files 

* Output the quantities in the dimensional form to "...f.out" 

open (unit=10 , f ile=fo2) 

write(6, *) 'POS.mm u v ul pstat rsl rs2 rs3 

$ UV Corr. ANGLE' 

write (10, *) 'POS.mm u v ul pstat rsl rs2 rs3 

$ UV Corr. ANGLE' 

do i=l,n 

write (6, 3 00 )yo (i) ,us (i) ,vs (i) ,uls (i) ,pr2 (i) ,rsls (i) , rs2s (i) , 

$ rs3s(i) ,uv(i) # cuv(i) ,eta*57.2958 

write (10 , 3 00 )yo ( i) ,us(i) ,vs(i) ,uls(i) ,pr2(i) , rsls(i) ,rs2s(i) , 

$ rs3s(i) ,uv(i) , cuv(i) ,eta*57.2958 
enddo 
close{10) 

* 

write (6, *) "Subtract base line values from rsl ? Yes:(l) No: 

$ (2) * 

read{5, *) is 

* Subtract the Base line Values from rsls (SBVRS) 

if(is.eq.l) then 

write ( 6, *) 'Subtracting base line values from rsl....' 
call SBVRS (yo, rsls, n) 
endif 

* 

write (6, *) "Subtract base line values from rs2 ? Yes:(l) No: 

$ (2) " 

read (5, *) is 

* Subtract the Base line Values from rs2s (SBVRS) 

if(is.eq.l) then 

write (6, *) 'Subtracting base line values from rs2 . . . . ' 
call SBVRS (yo, rs2s f n) 
endif 

★ 

write ( 6, *) "Subtract base line values from rs3 ? Yes:(l) No: 

$ (2) * 

read(5, *) is 

* Subtract the Base line Values from rs3s (SBVRS) 

if(is.eq.l) then 

write (6, *) 'Subtracting base line values from rs3 . . . . ' 
call SBVRS (yo, rs3s, n) 
endif 

* Locate the maximum of rsls and rs2s 

Write ( 6, *) 'Locating the rsl at wake center...' 
call RSMAX(yo, rsls, n,rslm, yep) 

Write ( 6, *) 'Locating the rs2 at wake center... ' 
call RSMAX(yo,rs2s,n,rs2m,ycp) 

* Output the mean quantities at each stream wise location to "...e.out" 
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open (unit=9 , f ile=fol, status=' unknown' ) 

Write ( 6 , *) 'ANG yc etal ulm upc ulm.b ulm.b/upc b thel 

$ theu the rslmn rs2mn' 

Write (9, *) 'ANG yc etal ulm upc ulm. b ulm.b/upc b thel 

§ theu the rslmn rs2mn' 

write (6 f 150)agp,ycp, eta* 57 .2957, ulm, upc, ulm*b,ulm*b/upc # b, thel, 
$theu, theta, rslm/ulm2 , rs2m/ulm2 

write (9,150) agp , yep, eta*57 .2957, ulm, upc , ulm*b, ulm*b/upc , b, thel , 
$theu, theta, rslm/ulm2 , rs2m/ulm2 
close (9) 

★ 

pause 'Enter to continue. . . ' 

* Output the quantities in nondimensionalized form 

open (unit =10 , f ile=fo3 ) 

write (6, *) 'POS.mm (Yc-Y) /b ul/ulm v/ulm rslN rs2N rs3N 
$ UVN UaVaN' 

write(10, *) 'POS.mm (Yc-Y) /b ul/ulm v/ulm rslN rs2N rs3N 
$ UVN UaVaN' 
do i=l,n 

write (6, 320) yo (i) , (ycp-yo(i) ) /b,uls (i) /ulm, vs (i) /ulm,rsls (i) / 

$ rslm, rs2s ( i) /rs2m, rs3s ( i) /ulm2 , uv(i) /ulm2,us ( i) *vs ( i) /ulm2 

write (10, 320 )yo (i) , (ycp-yo(i) ) /b,uls (i) /ulm, vs (i) /ulm, rsls (i) / 

$ rslm, rs2s ( i) /rs2m, rs3s ( i ) /ulm2 , uv(i) /ulm2, us ( i ) *vs ( i ) /ulm2 
enddo 
close(10) 

* Formats 

70 format ( f7 . 2 , 4 ( lx, f 6 . 3 ) , 2 ( lx, f 5 .2) , 2 (lx, f 6 .3) , lx, f5 .2, 2 ( lx, f 5 .3 ) ) 
75 format ( lx, f7 .2 , 2 (lx, f 6 .2) , 2 ( lx, f5 .3 ) , 2 (lx, f5 .2) , 3 (2x, f8.3) ) 

100 format (' Input data files : ' , a25 , 2x, a25, 

* /, ' Input document files : ',*25, 

* /, ' Output files : ' , / , lx, a25, lx, a25, lx, a25 , 

* /,' WARNING : Input files should exist.',//) 

110 format (2 (lx, f7.3) ,2 (lx, f5 .3) , lx, f 6 .3, lx, f7 .3, lx, f6 .3) 

120 format (lx, f3 . 0 , lx, f 7 . 3 , lx, f5.3, lx, f 5 • 2 , 2 ( lx, f 6 . 3 ) ,3 (lx, f6.2) , 

$3 (lx, f 5 .2) ) 

150 format (lx, f3.0, lx, f 6 . 2 , lx, f6.3, lx,f5.3,2(lx, f6.3) ,lx,f6.3, 

$lx, f 5 . 2 , 2 ( lx, f 4 . 2 ) , lx, f 5 . 3 , 2 ( lx, f 5 . 3 ) ) 

3 00 format ( lx, f7 . 3 , 4 ( lx, f 6 .3 ) , 2 (lx, f 5 . 3) , lx, f 6.3 , lx, f7 .3 , lx, f 8 . 5, lx, 
$f 6 .2) 

320 format (2 (lx, f7 . 3 ) , lx, f 5 . 3 , lx, f 6 . 3 , 3 ( lx, f7 .4) , lx, f8 . 3 , lx, f 8 . 3 ) 

350 format (' Enter (1): To repeat with another convergence factor',/,' 
$ (2): To continue') 

stop 
end 

★ ★***★★** ★★★★★*★★★★★**★★**★★*★★★**★★★★**★*★*★***★★**★*★***★★*★★* **★★*★★* 
subroutine RSMAX (rx, ry, n, rmax, rxc) 

* This subroutine find the maximum from a set of data points after 

* subjected to cubic spline smoothing 

* rx&ry- data sets, n-number of data sets (input ) 

* rmax - maximum of rx (output) 

* rxc - center of the wake where the value of ry = rmax (input) 

dimension rx ( 150 ) , ry ( 150) 
dimension break0(150) 
dimension ccoefO (4, 150) 
iegual=0 

if (n. It .20) iequal=2 

call CSSCV (n, rx, ry, iequal, breakO , ccoefO) 
rmax =CSVAL (rxc, n-1, breakO , ccoefO ) 
return 
end 
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********************************************************* ******** ******** 
subroutine SBVRS (yo, rs, n) 

* This subroutine subtract the base value from all rs(i) 

* The base line value is found from the polynomial fit. 

* yo(i) : independent variable eg: radial position (input) 

* rs (i) : dependent variable eg:Reynolds stress (input/output) 

* n : number of data points (input) 

************************************************************************* 

integer*4 npol,ks,np 

real *8 acoeff (40) , var (12) , coef f (12) 

real*4 x(100) ,y(100) 

dimension yo (150) , rs (150) 

* Input the boundary coordinates for base line fit and arrange 

* them in ascending order, y4>y3>y2>yl 

write ( 6, *)' Input Y-coord boundaries for the base line fit (mm):' 
write ( 6, *) 'First Y-coord for convex side?' 
read ( 5 , * ) y 1 
yt=yi 

write (6, *) 'Second Y-coord for convex side?' 
read ( 5 , * ) y2 
if (y2 . It ,yl) then 
yl=y2 
y2=yt 
endif 

write ( 6, *) 'First Y-coord for concave side?' 

read ( 5 , * ) y3 

yt=y3 

write (6, *) 'Second Y-coord for concave side?' 
read ( 5 , * ) y4 
if (y4 . It .y3 ) then 
y3=y4 
y4=yt 
endif 

Write (6, *) 'yl=' ,yl, 'mm y2=' ,y2, 'mm y3=' ,y3, 'mm y4=' ,y4, 'mm' 

* Calculation of base line fit fit. The data points for the base line 

* fit will be stored in x(j),y(j) 

j=0 

do i=l,n 

if ( (yo(i) . ge.yl) .and. (yo(i) .le.y2)) then 
j=j + l 

x(j)= yo(i) 
y(j)= rs (i) 
endif 

if ( (yo(i) . ge.y3) .and. (yo(i) .le.y4) ) then 
j=j + l 

x(j)= yo (i) 
y(j)= rs (i) 
endif 
enddo 
np=j 

* Fitting the base line fit, npol=degree of polynomial 

* np=number of data points for base line fit 

Write (6, *) 'Degree of polynomial for base line fit flow? 1, ...,5' 

read (5,*) npol 

call LSFIT(np, x,y, npol, acoeff , var, coef f,ks) 
do i=npol+2,ll 
coef f ( i) =0 . 0 
enddo 

Write (6, *) 'Polynomial coefficients for base line f it : ' , (coef f ( i) , 
$ i=l,npol+l) 
do i=l,n 

rs (i) =rs(i) -(yo(i) * (yo ( i) * (yo (i) * (yo (i) * (yo (i) *coef f (6) +coef f (5) ) 



$ +coeff (4) )+coeff (3) )+coeff (2) )+coeff (1) ) 
enddo 
return 
end 



Form Approved 

REPORT DOCU MENTATION PAGE | OWe No. 0704-0188 

(••Mir mmtinn tauidan for thk collection o < Worm-ton is estimated to average 1 hour per response, including the time lot reviewing instruction*. searching exi-tog data source®. 

STSm! 2S SSig and revto*tog <3 cotiection'S Worm-ton. Send comments reg-ding th« burden esUm-e w any th» 


Davie Highway. Suite 1204. Arlington? VA 22202-4302. and to the Office ol Management and Budget. Paperwork Reduction Project (0704-0188). Washington. DC 20503. 

2. REPORT DATE 3. REPORT TYPE AND DATES COVERED 

January 1996 Final Contractor Report 


4. TITLE AND SUBTITLE 5 - FUND,NG NUMBERS 

A Study of the Development of Steady and Periodic Unsteady Turbulent Wakes 
Through Curved Channels at Positive, Zero, and Negative Stream wise Pressure 

G radients, Part I WU-505-90-52 

6. AUTHORS) **AG3 1256 


1. AGENCY USE ONLY {Leave blank) 


M.T. Schobeiri and J. John 


7. PERFORMING ORGANIZATION NAME(S) AND ADDRESSEES) 

Texas A&M University 
Department of Mechanical Engineering 
College Station, Texas 77843 


8. PERFORMING ORGANIZATION 
REPORT NUMBER 


E-10097 


9. SPONSORING/MONtTORING AGENCY NAME(S) AND ADDRESSES) 

National Aeronautics and Space Administration 
Lewis Research Center 
Cleveland, Ohio 44135-3191 


MO. SPONSORING/MONITORING 
AGENCY REPORT NUMBER 


NASA CR- 198448 


11. SUPPLEMENTARY NOTES 


Project Manager, Barbara L. Lucci, Internal Fluid Mechanics Division, NASA Lewis Research Center, organization code 
2630,(216)433-5902. 


12a. DISTRIBUTION/ AVAILABILITY STATEMENT 


1 12b. DISTRIBUTION CODE 


Unclassified - Unlimited 
Subject Category 34 

T his publication is available from the NASA Center for Aerospace Information, (301) 621-0390. 

13. ABSTRACT (Maximum 200 words) 

The turbomachinery wake How development is largely influenced by streamline curvature and stream wise pressure gradient. The objective of this 
investigation is to study the development of the wake under the influence of streamline curvature and stream wise pressure gradient. The experimental 
investigation is carried out in two phases. The first phase involves the study of the wake behind a stationary circular cylinder (steady wake) in curved 
channels at positive, zero, and negative stream wise pressure gradients. The mean velocity and Reynolds stress components are measured using a X-hot- 
film probe. The measured quantities obtained in probe coordinates are transformed to a curvilinear coordinate system along the wake centerline and are 
presented in similarity coordinates. The results of the steady wakes suggest strong asymmetry in velocity and Reynolds stress components. However, 
the velocity defect profiles in similarity coordinates are almost symmetrical and follow the same distribution as the zero pressure gradient straight wake. 
The results of Reynolds stress distributions show higher values on the inner side of the wake than the outer side. Other quantities, including the decay of 
maximum velocity defect, growth of wake width, and wake integral parameters, are also presented for the three different pressure gradient cases of 
steady wake. The decay rate of velocity defect is fastest for the negative stream wise pressure gradient case and slowest for the positive pressure gradient 
case. Conversely, the growth of the wake width is fastest for the positive streamwise pressure gradient case and slowest for the negative stream wise 
pressure gradient. The second phase studies the development of periodic unsteady wakes generated by the circular cylinders of the rotating wake 
generator in a curved channel at zero streamwise pressure gradient. Instantaneous velocity components of the periodic unsteady wakes, measured with a 
stationary X-hot-film probe, are analyzed by the phase averaging techniques. The temporal distribution of velocity and Reynolds stress components 
obtained in a stationary frame of reference are transformed to a spatial distribution in a relative frame of reference. Profiles of phase-averaged velocity 
and Reynolds stress distributions in the relative frame of reference and similarity coordinates arc presented. The velocity defect and Reynolds stress 
distributions agree with the results of the wake development behind a stationary cylinder in the curved channel at zero streamwise pressure gradient 
The phase-averaged third-order correlations, presented in the relative frame of reference and similarity coordinates, show pronounced asymmetric 
features. 
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